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IgO PROGRAM PURPOSE (ABSTRACT) 

This program has the ability to test the Dhit (Asynchronous 
Mod«"i Inttrfdce)f off llnet Models able to be tested are d 
D<r and E only. The use of a modem 1$ not required for 
testing? however # a special cable connector BC05C and a 
special modem test connector H315A Is required,, This program 
is capable of the following? 

Verification of maintenance bit 
be Verification that transmitter can cause an interrupt 
c« Verification that receiver 'DONE' can cause an Interrupt 

d. Checks that 'REQ TO SEND' asserts 'RING' 

e. Checks that 'SEC XMIT' asserts 'SEC REC and 'DATA SET 
INT' 

f . Checks that 'DTR' can assert 'CLR TO SEND' and 'CAR DET' 

g. Verifies that 'DATA SET I.E^' can cause a RECVR INTR 

h. Checks the 'BREAK' feature 

1, Performs null^del^^null pattern 

Performs binary up count pattern 
k, performs binary down count pattern 
1 , Runs a worse case pattern 

Included In the program are special user routines « PRG #2# 
PPG #3# PRG #4f and PRG #5 (which will be described further 
Into this document) t 

Note well two(2) polntsi 

Is This program Is capable of testing slxteendS) DLll's and 
assumes contiguous addressing from 1st device to last® 

at If multiple devices are not being testedi thus not 
requiring a pass thru the program once per device* 
then the program will default to testing the 1st 
possible DLll«E device itt^f RCSR address = 775610, 
and test this device only. 

bg If multiple device testing Is not being conducted^ 
and the device existing is not the default DLll'^E* 
then the user on starting the program will have to 

set SW<o>sl to enter the question & answer mode^ 

2s, This program has provision for character length l^eti it 
assumes data Is 8 bitSi but also has the ability to 
handle 5# 6# or 7 bits of data as well • 



2tO SYSTEM REQUIREMENTS 

@g Hardware Requirements 



PDP*1 1 family processor with 8K of memory 
M7800 DLil asynchronous line interface module 
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BC05C sptclal cablt connector 
H315A sptclal modem test connector 

Software Requlrewtnts 

This program wa$ specifically designed for the 11/40 
Front End of the 1080 Console Processor Systernt In this 
environment it ^ould be loaded by the TCOp (Dectape) 
diagnostic monitor^ Howeveri any 11/40 user with 8K of 
memory can run this program to test one(l) or multiple 
DLll'S, 

The program has the proper Interface code to allow 
running under the automated manufacturing test line 
system - ACTl 1 • 

3,0 RELATED DOCUMENTS AND STANDARDS 

as Programming Practices - Document No, 175-003-009-00 

bg PDPlS/40 Processor Handbook 

Cg DLl 1 Asynchronous Line Interface Manual 

Document No, DEC-l 1-HDLAA 
a, PDP^^ll Maindec SYSMAC Utility Package 

MAINDEC-11-DZQAC-C3 
e. Applicable Circuit Schematic 

M7800 



4,0 DIAGNOSTIC HIEPAFlCHY PREREQUISITES 

Before running this program^ the following two(2) diagnostic 
programs should be run for verification of functionality of 

the ll«lnstruction set and memory: 

1, MAINDEC'^ll'^DBQEA and^ 

2, MAINDEC-ll-DZQMC 



5,0 LOADING AND STARTING PROCEDURE 

Load program in memory using ABS loader 
Load address 200^ 

NOTE 

In the case of a 1080 system environment 
load the program using the TCDP 
(dectape) Diagnostic Monitor , 

Press start, 

a. There are also three(3) optional start addresses for the 
programi 
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204 * selects program #2 

210 ^ selects program #3 

214 selects program #4 

220 « selects program #5 



6e0 SPECIAL ENVIRON^KNTS 

If this program is run in Quick. Verify Mode under 
program is done after the first passg 



ACTU the 



7tO PROGRAM OPTIONS 

SWITCH 



USE 



si or up Halt on error 
si or up Loop on test 
si or up Inhibit error typeouts 
si or up /C or /D model being tested 
si or up Inhibit iterations 
Osl or up Bell on error 
9si or up Loop on error 
8sl or up Loop on test in SWR<7 : 0> 
<7|0> Holds test no. of test to be looped on. Used 

in conjunction with SW<8>, 
Osl or up Used in device table creation (1 to 16 devices) 
i.e.f default device not desired. Also used for 
character length setting, 
I I NOTE WELL il 

If sw<08> is set the user can only 'loop 
on a test' of the default device i ,e, • 
DLU/E RCSR s 775610, If the user 
desires to 'loop on a test' of other 
than the default device he must first 
patch the five (5) locations labeled 



DLPCSRi 

DLVECTi 



DLRDBRS DLXCSRI 



DLXDBRi 



that appear under 'DLU Definitions' 
heading at the front of the listing, 
i ,e, - with sw<08> set sw<00> is not 

functional , 



8,0 



EXECUTION TIMES 

Execution time is dependent on type of memory and 
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number of DLll^s being testedf h representative 
time for 1 error free pass isi 



ll>'40 « core memory I DLll/E «• 20 seconds 



Error Reporting 



There are a total of seven(7 ) types of error 
reports generated by the program^ The key column 
hea<31ngi will be described below for clarity « 

DEVADH « This is the address of the receiver 
control status register for the falling 
DLll 



regADR « This is the address of the DLil 
register on which testing is being 
conducted 

WAS « This is What the contents of the 

register of the DLii undergoing test 
was (address is under column *{R2)^) 



S/B « This is what the contents of the 

register of the DLl 1 undergoing test 
should be (address is under column 
MR2)n 



wAsADR " This is what the memory address was 
(input data buffer address) 



SHbADR » This is what the memory address should 
be (output data buffer address) 

(REG) • This is the contents of the DLll 
receiver data buffer in error (address 
is under column '(R2) ') 



Error Halts 



With the 'Halt on Error' switch (SW15) not set there are 
four (4) programmed 'HALTS' in the program? 

a. In the case of error reporting and there is no terminal 
to allow the information transfer, 

b« In the power fail routine if the power up sequence was 
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started before the power down sequence had a chance to 
complete itslefs 

e« In the end of pass routine if multiple device testing is 
being conducted but no devices are shown as active^ 

de In the cast of sw<08> being set. 



10^0 PEpFORI^ANCE AND PROGRESS REPORTS 

Hot applicable^ 



11,0 DEVICE INFORMATION TABLES 



Sa The following is a picture view of a DLll«»E Receiver 
Control Status Reglstert which win show bit assignments 
and definitions? to provide a handy referencei 



IIIIIIIIIIIIIIIII 
IDSIRIICTIC IR IS I I IR IRIlDIi IS IRTIDTJ 1 
il INGi Si Dl Al Ri 1 i DIENIENI I XiS IR 1 I 
IIIIIIIIIIIIIIIII 

mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm 

IS 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00 



Bit assignments are defined as follows? 



BIT15 Data Set Interrupt 1, Interrupt sequence 

initiated when BIT05 set, 

2, Sets whenever bits lOi 11# 
12 or 14 change state 

3, Cleared by INIt or reading 
RCSR 



BlTl4 Ring 



1, When setf Indicates . a 
control signal being 
received from dataset. 



BIT13 Clear to send 



1, When set indicates ON 
condition! when clear 
indicates OFF condition, 

2, Dependent on state of 
^CTS^ signal from dataset 



BlTl2 Carrier Detect 1, Sets when data carrier 

received 
2, When clear indicates end 
of current transmission or 
an error conditions 
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BiTll Pecelvtr Activt 



BlTlO Secondary Pecaive or 
supervisory Pecelved 
Data 



aiT07 R@c@ivtr Dont 



8IT06 Peeelver interrupt 
Enable 



BItOS Dataset Interrupt 
Enable 



BIT03 Secondary Transmit or 

Supervisory Transmitted 
DATA 



BIT02 Request to Send 



1« When set indicates 
, receiver Interface Is 
active^ 

2^ Cleared by INit or RCVR 
DONE CBIT07), 

Provides receive capabll* 
ity# when set? for reverse 
channel of remote station^ 
Sets When BIT03 is set* 
2^ Cleared by INIT 

Ig Sets when character has 

been received^ wm 
initiate an interrupt 

providing BIT06 is also 
set 

2^ Cleared when RDBR is 

addressed or BITOO is set^ 
3p Also? cleared by INIT 

Is When set? allows interrupt 

providing BITO7 is set^ 
2, Cleared by INIT 

3« ###READ/WRITE BIT##«- 

Ig When setf allows interrupt 
providing BITI5 is sett 

2. Cleared by INIt 

3, ###READ/WRITE BIT### 

1 • Provides transmit cap« 
ability, when set, for 
reverse channel of remote 
station, sets when BITlO 
is set , 

2t Cleared by INIT 

3, ###READ/WRITE BIT### 

1 , Jumper ties this bit to 
REQ TO SEND in dataset • 

2 , Required for transmission 
3« Cleared by INIT 

4, ###READ/WRITE BIT*** 



BItOI Data Terminal 
Ready 



1 , When set f permits connec* 
tion to channel , 

2 , When clear, disconnects 
interface from channel , 

3 , MUST be cleared by program 

4, ***READ/WRITE BIT*** 



**#Special Notes on RCSR Register*** 



1 , Addresses should fall in the range of 175610 to 
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176170 

29 BITOl (Data terminal Ready) state is not defined 
after pow@r«'upt 

3, On DLU«C or «D options bits 15f 14| 13# I2f 10# 5i 
3f 2r and 1 are not used^ 

4^ On DLU-C and «D options bit<00> is ^RDR ens*' « On a 
DLl !•£ option tnis bit is unused, 

bt T'he following is a picture view of a Dlill»E transmitter 
control status registerf which will show bit assignments 
and definitions! to provide a handy reference! 
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Bjt assignments are defined as followsi 
BIt07 Transmitter Ready l^ Set when XDBR can 



bitOS Transmitter Interrupt 
Enable 



bIt02 Maintenance 



SItOO Brealc 



accept 

another characters ^111 
Initiate an interrupt if 
BIT06 also set , 
2« Also set by INIT 
3s Cleared by loading XDBR 

Is iNhen setf allows interrupt 

providing BIT07 is set* 
2s Cleared by INIt 
3s *#*READ/WRITE BIT*#» 

1« When setf disables serial 
line input to receiver ^ 
connects XMXT output to 
receiver input which 
disconnects external 
device input s This forces 
receiver to run at xmitter 
speeds 
2s Cleared by INIT 
3, ###READ/WRITE BIT### 

1 s When setf transmits a 
continuous space to 
external device 

2, Cleared by INIT 

3, ###READ/WRITE BIT*## 



U NOTE il 
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Olill»C and ^0 options art the same® 

Ct The follov^lng is a picture view of the DL11*E receiver 
and transmitter data buffer reglsterSf to provide a handy 
reference^ 



IIIIIIII IIIIIIIII 
lERlOPjFRlPEl I 1 1 1 I ID lA IT lA I I J 

IIIII IIIIIIIIIIII 



15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00 
Bit assignments are defined as followsi 



BITS 07*00 Data 



It Character to be 

transferred to external 
device^ 

2s It character less than 8 
Dits It must he loaded 
rlQht justified, 

3t ###WPITE ONLY BITS### 



BIT 15 



BIT 14 



BIT 13 



Error 



Overrun 



Framing 



1, ###PEAD ONLY BIT### 
2s Cleared by error removal 

1, Same as BIT 15 
2« RCVR DONE not cleared 

1 • Same as BIT 15 
2s No valid STOP bit 



Bit 12 



parity 



1, Same as BIT 15 
2 . Parity other 
expected 



than 



NoTEi Bits<l5! 12> only appear in the rcvr data buffer 
DLll-C and -D options are the same. 



12.0 SUBROUTIWE SUMMARIES 

12.1 DLaDDP 



This routine sets up the f ollowlngi 

RCSR * Receiver Status Register 
RBUF • Receiver Buffer Register 
XCSR - Transmitter Status Register 
XBUF - Transmitter Buffer Register 
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The setup is done? inltialiyf In response to user reply to 

1st device he wants tested# and thereafter* at the end of a 

program pass to allow cycling thru all devices for multiple 
device testing (If required)^ 

12«2 SEOP 

This routine is supplied by maindec-1 1-DZQACC3, the PDP-11 

Maindec ^SYSMAC^ utility package^ This routine Is 
responsible for the followlngi 

ae Incrementing the pass number C$PASS) 

b« Typing ^ENO PASS # XXX^ (where *XXX* is a decimal value) 

WOTE 

If multiple device testing Is being 
conducted! then $PASS is only 
Incremented after testing of all devices 
has transpired (multiple testing) « 
Therefore? e^g,. If 10 devices have been 
tested then ^EMd PASS #1^ would be typed 
outi ^'EMD PASS ^a*" would be typed out 
after the 10 devices have once again 
been tested by the program^ etc» 

c* Goes to a monitor^ If there is one 

de If there Is no monitor transfers control bade to 
beginning of the program^ 

12»1 $scOPE 

This routine is supplied by maindec-U-DZ0AC*C3# the PDP-11 
Maindec 'SYSMAC utility paCJcage, 

This routine is entered before and after every subtest to 
ascertain the following condltionsi 

as Loop on test just executed? 

This condition is enabled when SW<14> is set to a 

be Loop on test if an error has occurred during the test? 
This condition is enabled when SW<09> is set to a '1 ' , 

c. Loop on test specified by test no, appearing in 
SWF<7|0>? 

This condition is enabled when SW<08> is set to a M * , 

dt Inhibit subtest iterations? 

This condition is enabled when SW<ii> is s@t to a n% 



12.4 



SErROR 
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This routine is supplied by MAiwDec«U^DZ0AC«e3f the PDP'^ll j 
waindec ^SYSMAC^ utility package, .y' 

This reutlnt handles the following reactions to an error when 
an error i% encounteredi 

at *HALT^ on Error? 

This condition is enabled when »SW<15> is set to a M% 

bt Ring ^Bell^ on Error? 

This condition is enabled when SW<10> is set to a 

c« Loop on Error 

This condition is enabled when SW<09> is set to a ^1*^, 

dt Inhibit Error Typeouts 

This condition is enabled when SW<13> is set to a ""l^ 

MOTE ^ 

On encountering an error while executing 
the prograrp this routine will transfer 
control to 'SERPTYP' routine shown below 
(presumes "HALT^ on error SW<15> not 
set)^ 



12^5 $EpRTyP 

This routine Is supplied by maxndeC'«1 l«*DZQAC«C3f the PDP«-11 
Maindec ^SYSMAC^ utility packcage^ 

This routine handles the information for error message 
typeouts as f ollowsi 

This routine uses the 'Item Control Byte' (SITEMB) to 
determine which error is to be reported^ It then obtains^ 
frorn the 'error Table' (SERRTB) the addresses of where the 
information^ for printouts is storedi and causes the 

appropriate information concerning the error to be printed 
out. 

Notes Is The variable '$ITEMB' is supplied by ^tcmkQ^ a 
'SYSMAC utility paclcage routine, 

2. The 1st address 'SERRTB' for location of 'error 
table' information is also supplied by «$CMTAGt 

3» If the 'SITEMB' value is zero(0)i then only a 
program counter (PC) is printed out , It has no 
labeli it is a pure number. 



Page 13 



12.6 STyPOC 

This routine is supplied by MAINDEC^t l^DZQAC^C3i th@ PDP-U 

Maindee ^S^SMAC^ utility package^ This routine is used for 

all octal typeouts (16 bit values) throughout the program^ 



12,7 STyPDS 

This routine is supplied by maindec«»U-DZ0AC'«'C3# the PDP-11 
Maindec ^SXSMAC utility package. This routine is used to 
type a decimal value at the end of a pass of the program of 
the forw ^EUD PASS # XXX^ where 'XXX' is the decimal value^ 



12,8 $BdCHB, $B0LIN, SRDOCT 

These routines are supplied by MAINOEC^l l-DZQAC«C3f the 

PDp^ll Maindec 'SYSMAC utility package. Their uses are as 
f oilowsi 



b, SRDLIN 



C. SBDOCT 



12,9 STyPE 

This routine is supplied by MAINDEC-I l«DZQAC«»C3f the PDP-11 

Maindec 'SYSMAC utility package. This routine is used to 

type ASCII messages (which must terminate with a byte) as 

well as all other forms of typed information. The routine is 

also responsible for inserting a number of fill characters 
after a line feed. 

wotei 1 , $NULL contains the character to be used as f ill , 

2^ iriLLS contains the number of filler characters 
reg'd, 

3a SFILLC contains the character to fill after , 



« Handles a single character coming in from tne 
TTY, The Character is placed on top of the 
stack for future use,^ 

- Handles a string of characters coming in from 
the TTY, The address of the 1st character is 
placed on top of the stack for future use, 

• Handles an octal number coming in from the 
SBDDEC 104420 TTY decimal # input TTY, Low 
order bits are stored on top of the stack; high 
order bits are stored in location SHIQCT, 
$HI0CT is supplied by ,$CMTAGf a 'SYSMAC 
package utility routine , 
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4t The above three(3) variables are supplied by 
9$CMTAG# a ^SYSnAC^ package utility routine^ 



12,10 



These routines are supplied by MAIWDEC«il«*DZQAC"C3i the 
PDp«ll Malndee ^SYSMAC* utility package^ The ^$THAP^ routine 
win strip off the lower byte of a trap instruction and use 
It to index thru the trap table ($TRPAP) for the starting 
adaress of the desired routine^ Then using the address 
obtained it will then transfer program control to that 
routine. 

The following table defines all routines in the prograin 
called by a *TRAP* instruction by showing their ^THAP^ 
egulvalences «• 



$TyPE 104400 TTY typeout routine 

STYPOC 104402 Type octal n (with leading zeros) 

STyPOS 104404 Type octal # (no leading zeros) 

$TYPON 104406 Type octal # (per last character tuethod) 

STyPDS 104410 Type decimal # (with sign) 

SRDCHR 104412 TTY Character input 

SRDlilN 104414 TTY String input 

SRDOCT 104416 TTY octal # input 



12,11 $PWHDN| SPWRUP 

These routines are supplied by maindec««1 l«DZQAC«C3f the 
PDP-11 Malndec 'SYSMAC utility package. These routines 
handle the 'Power Down and Up' seguence , The program may be 
DOwer failed when running; however^ use caution in turning 
power of f /on while the power fall message Is being typed « it 
may cause stack overflow, 

NOTE 

When power returns the program will 
automatically start itself over at the 
beginning. 



12,12 XIwTr RINT 

XINT ^ This Is the transmitter Interrupt service routine 
for 256(10) byte block transfers, 

rInT ® This is the receiver interrupt service routine for 

256(10) byte block transferig 
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12^1^ mihYf STALLS DATCHK. TIMEPX, TlMETX 

These routines are all used toy programs 2i 3<r 4 and 5t 
Programs 2 through 5 are the ^'SpeclaX^ user Interaction 
routines which will be defined later in this document. The 
above routine uses are as follows? 

at DELAY ^ This routine is used by all the utility programs 
to wait a no, of milliseconds between character 
transfers as specified by the user, 

bn STALL « This routine is used by program #4 and will 
allow a random no^ of milliseconds to transpire 
before a transmission of a character^ This 
routine is activated based on user responses 

c, DATCHK » This routine is used by program #4 and will 
checK for correct expected and received data 
after character transmission as well as any 
error bit conditions^ 

d^ TIMERX f TlMETX « 

These two(2) routines are used by program #4 to 
verify the ^DONe^ bit after both transmitter and 
receiver operatlonSt 



12al4 SUERPlf SUER2 

These twe(2) routines are used throughout the program to set 
up the error information for *Error Peporting* before the 
*Error Report* call is made* ^Error Peport^ calls appear 
throughout the program in the form "EPPOP 4- XX" where ^XX* 
indicates the particular error table (EPPTSi) entry used by 
the Error Service Routine^ 



12.15 PPlME 



This routine is used to set up the data buffers an the device 
under test for each 256(10) byte block transfers 



12,16 CLDLBF 



This routine is used in conjunction with routine ^PRIME^ to 
clear input and output buffers before data transfers. 



12,17 



LDOUTI, LD0UT2f LD0UT3# LD0UT4 
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The routinti are all used for set m awi loading purposes as 

fOllOWif 



a. LDOUTl - 

b, LD0UT2 - 

pattern 
Ct IjOOUT3 - 
patttrn 
LD0UT4 - 
pattern 



is called to sat up th® ^null^del^-null* pattern 

is called to load an ascending binary count 

is called to load a descending binary count 

is called to load a complementing worse case 



12,18 CHkDAT 



This routine if used to. check for data compare errors in 
256(10) byte block transferSt 



12,19 BUSEPP# RSVERR 



These two(2) routines are used to service ^Unexpected* bus 
error and reserved instruction trapsi respectively ^ 



12,20 TPpCOM 



This routine is used to set up and report the information 
concerning ^Unexpected^ ous error and reserved instruction 
traps , This routine is used in conjunction with routines 
'BuSERR' and 'RSVERR' described above. 



13,0 MISCELLANEOUS 

at The stack pointer is initially set to 1100^ 
The parity bit is not covered^ 

14,0 USER SELECTION PROGRAMS 

14^1 Program #2 Description 

This utility program will allow the followlngi 

a , Selection of transmitter data buffer 

ht Selection of a character for continuous transfer 
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Ct Seltctlon of an expiration time in mllliseconcSs between 
each transmitter data buffer character transfer 

dg A tight scope loop Iocn: on a specific character 

The prograin relies on user response (via TTY) to specific 
questions as described belo^i 

What is tne transmitter data buffer address? 

The user should respond by typing an address in the range 
175616 to 176176 and follow It with a ^carriage return*' 
at which time the program will validate what was typed to 
see if « 

Ig The value typed is within the correct range 

28 The value typed is an ^even* address# so as not to 
cause a ^Bus timeout*" when referenced^ and 

Then checlcs to see if the device associated with the 
value typed is indeed present 

^OTE 

If either of the threeO) above 
conditions are not met the program win 
type a ouestion mark: (?)# reiterate the 
initial questlonf and wait for a ^new^ 
user response^ 

b» What is the character to be transmitted (octal ASCII 
e«g,i A^sioD? 

The user should respond by typing an octal ASCII value? 
for the character desired and follow it with a ^carriage 
return* ^ 

Cn What is the desired mseCt delay (octal e^gt^ 10a8(10))? 

The user should respond by typing an octal value for the 
dtiired nOt of msect delay and follow it with a 
^carriage return^^ 

EeGj « If user desired i6 mseCe delay between each 
.character transfer he should type ^20*9 

d. At this point the program will loop continuously sending 
the character specif ied# with the desired msec* delay 

between each character transmission^ 



14,2 Progra?n #3 Description 



Page IB 



This utility program will allow the followingi 

at Selection of TRANSMITTER data buffer 

Stlection of a character for continuous transfer 
IN MAINTENANCE MODE^ 

Cs Sflectlon of an expiration time in ff^illiseconds between 
each TRANSMITTER data buffer character transfer 

A tight scop® loop lock on a specific character 

The program relies on user response (via TTY) to specific 
questions as described belowi 

a« What is the TRAMSMITTEP data buffer address? 

The user should respond by typing an address in the range 
175616 to 176176 and follow it with a ^carriage return^ 
at which tiro® the program will validate what was typed to 
see If - 

Ig The value typed is witnin the correct range 

2t The value typed is an ^even^ address^ so as not to 
cause a 'Bus timeout' when referenced^ and 

Is Then checics to see if the device associated with the 
value typed is indeed present 

NOTE 

If either of the three(3) above 
conditions are not met the program win 
type a question mark (?)# reiterate the 
initial question^ and wait for a ^new^ 

user response® 

be What is the character to be transmitted (octal ASCII 
e.g., Asion? 

The user should respond by typing an octal ASCII value^ 
for the character desired and follow it with a ^carriage 
return' , 

Cs What is the desired msec, delay (octal e^g^^ 10»8(10))? 

The user should respond by typing an octal value for the 
desired no, of msect delay and follow it with a 
'carriage return' t 

E,G, « If user desired 16 mseCt delay between each 
character transfer he should type ^20^^ 

dt At this point the program will loop continuously sending 

the character specifiedi with the desired mseCt delay 
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between each character transmission^ 



14g3 Program #4 Description 

This utility proaram will allow the followlngi 
a^ Selection of a transn^ltter data buffer 

be Selection of a single character to be senti. received and 
checked ^^Ith maintenance bit set^ 

The program relies on user response (via TT¥) to specific 
questions as described belowi 

a» What is the transmitter data buffer address? 

The user should respond by typing an address in the range 
175616 to 176176 and follow it with a ^carriage return* 
at which time the program will validate what was typed to 
see If - 

1» The value typed is within the correct range 

28 The value tyoed is an ^even"" address* so as not to 
cause a *Bus timeout^ when referenced? and 

3s Then checks to see if the device associated with the 
value typed is indeed present^ 

NOTE 

If either of the three(3) above 
conditions are not met the program will 
type a Question mark C?)f reiterate the 
initial question^ and wait for a ^new^ 
user rtsponstg, 

b» Is a random wait time (msec^) desired 1/Osyes/no? 

The user should respond as asked and follow it with a 
^carriage returnee 

c« What is the character to be transmitted (octal ASCII e^g^ 

AalOD? 

The user should respond by typing an octal ASCII valuep 
for the Character desired and follow it with a 'carriage 
return' « 

dg At this point the program will loop continuously sending 
the character specif ied# with a random msec • delay 
between each character transmission t Between each 
transmission? 'RCVR' ^ 'XMITTER' done bits will be 
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verifledf as well a§ checks for correct data and any 
error bit conditions^ 

NOTE 

If user response to Item b, (directly 
above) i^as a /O^ or a plain ^'carriage 
return* then there is no delay between 
character transmissions « 



14«4 Program #5 Description 

This utility prograiti will allow user parameters for running a 
binary count in flf^aintenance modeg 

The prograr?^ relies on user response (¥ia TTY) to specific 
questions as described belo^i 

at What is the transmitter data buffer address? 

The user should respond by typing an address in the range 
175616 to 176176 and follow it with a /carriage return^ 
at which time the program will validate what was typed to 
see if » 

le The value typed is within the correct range 

2g The value typed is an ^even^ address^ so as not to 
cause a *Bus timeout* when referenced^ and 

39 Then checlcs to see if the device associated with the 
value typed is indeed present^ 

^fOTE 

If either of the threeCI) above 
conditions are not met the program will 
type a question mark: C?) # reiterate the 

initial question^ ani wait for a ^new^ 
user response • 

b. Is a random wait time (msece) itsirtd l/Osyes/no? 

The user should respond as asked and follow it with a 
^carriage return' , 

Ci At this point the program will loop continuously sending 
binary characters* with a random msec, delay between 
each Character transmission. Between each transmission* 
'RCVR' & 'XMITTER' done bits will be verified, as well as 
checlcs for correct data and any error bit conditions , 



NOTE 
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If user response to item B, (directly 
above) was a or a plain ^carriage 

return^ then there is no delay between 
character transmissions « 



15 tO PROGRAM FUWCTIONAL FLOW CHAHTS 



16.0 PPQGRAM LISTING 
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5 
6 
7 
6 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 



39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



OOOl 74 
0001 76 

000204 
00021 
OOO2I 4 
000270 



000174 
000000 
000000 

000137 
000137 
0001 37 
000137 
0001 37 

000052 
000000 



001 446 
006344 
006604 
007054 
007446 



.NLIST CND,MD,MC 
.LIST ME,SEO,BIN 
$SWPal67400 
.ENABLE ABS 

.TITLE MAINDEC-U-DZDLC-B 

J*C0PYP1GHT (C) 1977 

|*OIGITAL EQUIPMENT CORP, 

)*MAXNAPD, MASS, 01754 

I * . 

j»PPOGkAM E, CPOWLEY/B, BUPGESS 

;» 

>*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAI^JDEC SYSMAC 
;»PACKAGE ( MA I NDEC- 1 1 -DZQAC-C3 ) # JAN 19, 1977 , 
• « 

STN = 1 



20 


.SBTTL 


OPERATIONAL 


SWITCH SETTINGS 


21 


1 * 






22 


} * 


SWITCH 


USE 


73 


t * 






24 


t * 


15 


HALT ON ERROR 


25 


I ^ 


14 


LOOP ON TEST 


26 




13 


INHIBIT ERROR TYPEOUTS 


27 


* ^ 


12 


/C OR /D MODEL 


28 


1 '**' 


It 


INHIBIT ITERATIONS 


29 


1 * 


10 


BELL ON ERROR 


30 


t * 


9 


LOOP ON ERROR 


3t 


t * 


e 


LOOP ON TEST IN SWR<7;o> 


32 








33 


J » 





CREATION OF DEVICE/S TADLt: 


34 


t * 




OP CHANGE CHARACTER LENGTH 


35 








36 


, SBTTL 


TRAP CATCHER 




37 








38 000000 




. = 





j*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ",+2fHALT" 
^♦SEQUENCE TO CATCH ILLEGAL TRAPS ANfi INTERRUPTS 
I*LOCATION CONTAINS TO CATCH isflPHOPERF.Y LOAOED VECTORS 
, = 174 

DISPREG: .WORD jjSDFTWARE DISPLAY REGISTER 

SWREGj .WORD ;jSOFTWAPE SWITCH REGISTER 

.SBTTL STARTING ADDRCSS(ES) 

JMP P#BEGIN J J JUMP TO STARTING ADDRESS OF PROGRAM 

JMp ei»PRG2 ;JUMF TO USER PROGRAM NO. 2 

JMP 9IPRG3 ;JUMP TO USER PROGRAM NO. 3 

JMp §#PRG4 jJUN-P TO USER PROGRAM NO. 4 

JMp PSPRG5 ;JUMF TO USER PROGRAM nD. 5 

.=52 J INFORMATION LOCATION FOR ACTll 

.WORD jNO POWER FAIL REQUIRED <BIT15=0> 

lis NOT MKK.OPY SIZE DEPENDENT <B1T14 = 0> 
lis SUITABLE FOR AUTOMATIC OPERATION <BIT13 
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57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
6^ 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 



91 
92 
93 
94 
95 
96 
97 
96 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
UO 
Ul 
112 



.SBTTL BASIC DEFINITIONS 

j*INITIAL ADDRESS OF THE STACK POINTER »#* 1100 «*» 



OOOOU 
000012 

oaoois 

000200 
177776 

177774 
177772 
177570 
177570 



000000 
000001 
000002 
000003 
000004 
000005 
000006 
000007 
000006 
000007 



000000 
000040 

000100 

000140 
000200 
000240 
000300 
000340 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
OOOOlO 
000004 



STACKS 


1100 




.EOUIV 


EMT, ERROR 


nBASIC DEFINITION OF ERROR 


.EQUIV 


lOT, SCOPE 


fiBASIC DEFINITION OF SCOPE 


jtMISCELLANF.OUS DEFINITIONS 


HT= 


11 


IfCODE FOR HORIZONTAL TAB 


LF= 


12 


1 jCODE FOR LINE FEED 


CRc 


15 


nCODE FOR CARRIAGE RETURN 


CRLFa 


200 


nCODE FOR CARRIAGE RETURN- 


pSs 


177776 


nPPOCESSOR STATUS WORD 


.EQUIV 


PS,PSW 




STKLMTs 


177774 


nSTACK LIMIT REGISTER 


PiRQs 


177772 


JjPROGRAM INTERRUPT REQUEST 


DSWR8 


177570 


nHARDWARE SWITCH REGISTER 


DOISPa 


177570 


IfHARDWARE DISPLAY REGISTER 


j*GENERAL PURPOSE 


REGISTER DEFINITIONS 


ROa 


%0 


mGENERAL REGISTER 


Rl = 


%1 


fiGENERAL REGISTER 


R2 = 


%2 


nGENERAL REGISTER 


R3a 


%3 


nGENERAL REGISTER 


R4a 


%4 


nGENEpAL REGISTER 


R5a 


%5 


mGENEPAL REGISTER 


R6a 


%6 


If GENERAL REGISTER 


R73 


%7 


llGENERAL REGISTER 


SPa 


%6 


llSTACK POINTER 


PCa 


%7 


I IPROGPAM COUNTER 


f<*PRIORITY LEVEL DEFINITIONS 


PROa 





llPRIORITY LEVEL 


pRls 


40 


llPRIORITY LEVEL 1 


PR2s 


100 


1 IPPIORITY LEVEL 2 


PB3 = 


140 


1 IPRIORITY LEVEL 3 


pR4a 


200 


llPRIORITY LEVEL 4 


PR5a 


240 


1 IPPIORITY LEVEL 5 


PR6S 


300 


llPRIORITY LEVEL 6 


PR7 = 


340 


llPRIORITY LEVEL 7 


j#"SWITCH REGISTER 


" SWITCH DEFINITIONS 


SW153 


100000 




SW14S 


40000 




SW13a 


20000 




SW12a 


lOOOO 




SWUa 


4000 




SWlOa 


2000 




SW09S 


1000 




SW088 


400 




SW07a 


200 




SW06a 


100 




SW05S 


40 




SW04a 


20 




SW03a 


10 




SW02S 


4 
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1 1 3 


000002 


swo 1 «• 






114 


000001 


SnQOs 


1 




115 






SW09# 


SW9 


i 1 6 




*EQUIV 


SW08r 


SW8 


1 1 7 




EQUI V 


SW07, 


SW7 


1 1 8 




EQUI V 


SW06, 


SW6 


1 1 9 






SW05, 


SW5 


120 




*EQUI V 


SW04» 


SW4 






EQUI V 


SW03* 


SW3 


122 




EQUI V 


SW02, 


SW2 


1 2 3 




EQUI V 


SWOl, 


SWl 


1 24 




EQUI V 


SWOO, 


SWO 


1 25 










' 




J *DATA 


BIT DEFINITIONS (BITOO TO BIT15) 


1 27 


I UU u u u 


BITl So 


100000 


1 26 


040000 




40000 




I 29 


rt o ft A ft n 

U * U vi U V 


BITl 3s 


20000 




I 30 


1 0000 


BTTI 


10000 




L 3 1 


004000 




4000 




[ 32 


002000 


BITl Oa 


2000 




133 


001000 


B I TO 9 s 


1000 




1 34 


000400 


B I TO 8 ^ 


400 




I 35 


000200 


B I TO 7 23 


200 




L 36 


0001 00 




100 




I 37 


000040 


BITOSs 


40 




138 


000020 


B I TO 48 


20 




1 39 


00001 




10 




1 40 


000004 


BIT02* 


4 




141 


000002 


BITOla 


2 




142 


OOOnol 


BITOOa 


1 




143 




,EOUIV 


BIT09 


#BIT9 


144 






BIT08 


,8XT8 


1 45 






BIT07 


,BtT7 


1 46 




*Fr 1 TU 


BIT06 


»BIT6 


I 47 






BIT05 


,BIT5 


1 48 






BIT04 


,BIT4 


I 49 






BIT03 


,BIT3 


150 




'c-niiTU 


BIT02 


,BIT2 


151 




*EQUIV 


BITOl 


,BIT1 


152 




Iequiv 


BITOO 


,BITO 


1 53 
154 




>*BASIC 


"CPU" 


TRAP VECTOR ADDRESSES 


155 


00000 4 


ERRVECs 


4 


jfTIME OUT AMD DTHtR ERRORS 


156 


A Aftfl 1 ft 


RESVECs 


10 


IjRESFRVED AND ILLEGAL INSTRUCTIONS 


157 


000014 


TBITVEC 


= 14 


If"!" BIT 


158 


00001 4 


TPTVECs 


14 


jiTPACE TRAP 


159 


000014 


BPTVECa 


14 


IjBREAKPOINT TRAP (BPT) 


160 


000020 


lOTVECs 


20 


n IWPUT/OUTPUT TRAP (lUT) »»SCUPE** 


161 


000024 


p-«iRVECs 


24 


1 jPOViER FAIL 


162 


000030 


EMIVECs 


30 


IjEHlILATOR TRAP (EMT) *»ePPOR*« 


163 


000034 


TPAPVEC=34 


If "TRAP" TRAP 


164 


000060 


TKVECs 


60 


IfTTY KEYBOARD VECTOR 


165 


000064 


TPVFCs 


64 


IJTTY PRINTER VECTOR 


166 


000240 


PIRQVEC 


= 240 


jfPROGRAM INTERRUPT REQUEST VECTOR 


167 
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DZDLCB 


Pll 06-WAY-77 10S04 


COMMON 


TAGS 






168 






,SBTTL 


COMMON 


TAGS 




169 
170 








171 






J*THIS 


TABLE CONTAINS 


VARIOUS COMMON STORAGE LOCATlO/vS 


172 






|»USED 


IN THE 


PROGRAM, 




173 
174 




OOllOO 




,=1100 






175 


OOllOO 




SCMTAGi 






START UF COMMON TAGS 


176 


OOllOO 


000000 


SPASSi 


.WORD 





;|COnTAINS pass COUNT 


177 


001 102 


000 


$TSTNMj 


,BYTE 





mCOnTAInS the TEST NUMBER 


178 


001103 


000 


SERFLGi 


.BYTE 





;>COnTAInS ERROR FLAG 


179 


001104 


000000 


SICNTI 


.WORD 





;jCONTAlNS SUBTEST JTERATJUN COUNT 


180 


001 106 


000000 


SLPADRl 


.WORD 





jjCONTAINS SCOPE LOOP ADDRESS 


181 


001 110 


000000 


SLPERR! 


.WORD 





UCONTAINS SCOPE RETURN FOP ERRORS 


182 


001 112 


000000 


$ERTTL| 


, WORD 





IICONTAINS TOTAL ERRORS DETECTED 


183 


001114 


000 


SiTEMBi 


.BYTE 





nCONTAlNS ITEM CONTROL BYTE 


184 


001115 


001 


SERMAXi 


.BYTE 


1 


nCOMTAlNS MAX, ERRORS PER TEST 


185 


001116 


000000 


SERPPCl 


.WORD 





jlCONTAINS PC OF LAST ERROR INSTRUCTION 


186 


001 1 20 


000000 


$GDADRI 


.WORD 





^CONTAINS ADDRESS OF 'GOOD' DATA 


187 


001 122 


000000 


SBDADRi 


.WORD 





^CONTAINS ADDRESS OF 'BAD' DATA 


188 


001124 


000000 


$GDDAT| 


.WORD 





jlCONTAINS 'GOOD' DATA 


189 


001126 


000000 


SBDDATi 


.WORD 





JjCONTAINS 'BAD' DATA 


190 


001130 


000000 




.WORD 





. J jRESERVED— NOT TO PK USED 


191 


001132 


000000 




.WORD 







192 


001134 


000 


SAUTOBi 


.BYTE 





jjAUTOMATIC MODE INDICATOR 


193 


001135 


000 


$INTAG| 


.BYTE 





jjINTFRPUPT MODE INDICATOR 


194 


001136 


000000 




.WORD 







195 


001140 


177570 


SWRi 


.WORD 


DSWR 


jjADDRESS OF SWITCH REGISTER 


196 


001142 


177570 


DlSPLAYl .WORD 


DDISP 


jjADDRESS OF DISPLAY REGISTER 


197 


001144 


177560 


$TKSl 


177560 




jjTTY KBD STATUS 


198 


001146 


177562 


STKBf 


177562 




JITTY KBD BUFFER 


199 


001150 


177564 


$TPSl 


177564 




JiTTY PRINTER STATUS REG, ADDRESS 


200 


001152 


177566 


STPBl 


177566 




jjTTY PRINTER BUFFER REG, ADDRESS 


201 


001154 


000 


$NULLt 


.BYTE 





JjCONTAINS NULL CHARACTER FOR FILLS 


202 


001155 


002 


SFILLSt 


.BYTE 


2 


JjCONTAINS # OF FILLER CHARACTERS REQUIRED 


203 


001156 


012 


SFILLCl 


.BYTE 


12 


jjINSERT FILL CHARS, AFTER A "LINE FEED" 


204 


001157 


000 


ITPFLGI 


.BYTE 





jj"TERMINAL AVAILABLE" FLAG (B1T<07>=0=YES) 


205 


001160 


000000 


$REGAD| 


.WORD 





JjCONTAINS THE ADDRESS FROM 


206 












jjWHlCH (SREGO) WAS OBTAINED 


207 


001162 


000000 


$REGOl 


.WORD 





JjCONTAINS (($REGAD)+0) 


208 


001164 


000000 


SREGlt 


.WORD 


. 


JjCONTAINS ( ($REGAD)4-2) 


209 


001166 


000000 


$REG2l 


.WORD 





JjCONTAINS (($BEGADU4) 


210 


001 170 


000000 


$PEG3| 


.WORD 





JjCONTAINS (($REGAD)+6) 


211 


001172 


000000 


$REG4l 


.WORD 





JjCONTAINS t($REGAD)+10) 


212 


001174 


000000 


$REG5l 


.WORD 





JjCONTAINS (($REGAD)+12) 


213 


001176 


000000 


$REG6i 


.WORD 





JjCONTAINS ( (SREGAD)+14) 


214 


001200 


000000 


SREG7I 


.WORD 





JjCONTAINS (C8REGAD)+16) 


215 


001202 


000000 


$TMPOl 


.WORD 





jjUSER DEFINED 


216 


001204 


000000 


STMPll 


.WORD 





J f USER DEFINED 


217 


001206 


000000 


$TMP2i 


.WORD 





jjUSER DEFINED 


218 


001210 


000000 


STMP3I 


.WORD 





jjUSEP DEFINED 


219 


001212 


000000 


$TMP4l 


.WORD 





JjUSER DEFINED 


220 


001214 


000000 


8TMP5I 


.WORD 





JjUSER DEFINED 


221 


001216 


000000 


$TMP6l 


.WORD 





JjUSER DEFINED 


222 


001220 


000000 


STMP7I 


.WORD 





JjUSER DEFINED 


223 


001222 


000000 


STMPlOl 


.WORD 





JjUSER DEFINED 
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224 


001224 


000000 


STMPll 1 


.WORD 









JiUSER DEFINED 


225 


001 ?26 


000000 


STMP12I 


.WORD 









j»USER DEFINED 


226 


001230 


000000 


STMPUl 


.vyoRD 









jjUSER DEFINED 


227 


001232 


000000 


$TMP14l 


.WORD 









flUSER DEFINED 


228 


001234 


000000 


$TMP15l 


.WORD 









nUSEP DEFINED 


229 


001236 


oooooo 


STMP16I 


.WORD 









jfUSER DEFINED 


230 


001240 


000000 


$TMPi7l 


.WORD 









; J USER DEFINED 


231 


001 242 


oooooo 


STIMESI 











UMAX, NUMBER OF ITERATIONS 


232 


001244 


oooooo 


SESCAPEtO 








;|ESCAPe ON ERROR ADDRESS 


233 


001 246 


177607 000377 


$ BELLI 


.ASCIZ 


<207><377><377> 


jfCODE FOR 8£LL 


234 


001252 


077 


$QUES| 


.ASCII 


/?/ 






;jOUESTION MARK 


235 


001253 


015 


$CPLF| 


.ASCII 


<15> 






jjCARRIAGE RETURN 


236 


001254 


000012 


$LFt 


.ASCIZ 


<12> 






}jLINE FEED 


237 






J J 


238 
239 






|THE FOLLOWING 


TAGCS) 


ARE 


USER 


SUPPLIED BY CALLING THE MACRO 


240 






j'MORETAGS' AS 


ONE OF 


THE 


ARGUMENTS TO THE S^SMAC ROUTINE .SCMTAG 


241 
242 


001256 


OOOOOO 


TABFLG: 


,>^ORD 









jAN INDICATOR TO SHOW THAT THE 


243 
















J INFORMATION FOP MULTIPLE DEVICE 


244 
















^TESTING HAS ALHEADif TRANSPIRED 


245 
















;& 'MAINDEC NAME HAS BEEN PRINTED 


246 


001 260 


OOOOOO 


DLBASE: 


.WORD 









;STOHAGE & WORKING LOCATION FOR A DEVICE 


247 
















^RECEIVER STATUS REGISTER ADDRESS 


248 


001262 


OOOOOO 


KEEPADj 


, WORD 









J STORAGE LOCATION FOR THE 1ST 


249 
















jDEVICE RCSR FROM WHICH 


250 
















y'BASEADD' IS RESTORED AT THE 


251 
















;END OF A COMPLETE PROGRAM PASS, 


252 


001 264 


OOOOOO 


BASEADDj 


.WORD 









jSTORAGE LOCATION WHICH HOLDS 


253 
















;THF RCSR ADDRESS OF THE 'NEXT' 


254 
















jOEVICE DURING MULTIPLE TESTING 


255 


001 266 


OOOOOO 


KEEPIVs 


.WORD 









fSTORAGE LOCATION FOP THE 1ST 


256 
















{DEVICE RECEIVER VECTOR FROM 


257 
















; WHICH '8ASE1V' IS RESTORED AT THE 


258 
















jEND OF A COMPLETE PROGRAM PASS 


259 


001270 


oooooo 


BASEIVl 


.WORD 









jSTORAGE LOCATION WHICH HOLDS 


260 
















yTHFJ VECTOR ADDRESS OF THE 'NEXT' 


261 
















{DEVICE DURING MULTIPLE TESTING * 


262 


001272 


OOOOOO 


MULTDJ 


.WORD 









jFLAG TO INDICATE TO 'END OF PASS' 


263 
















{ROUTINE THAT MULTIPLE DEVICE 


264 
















{TESTING IS BEING CONDUCTED 


265 
















{0=NO, 1=YES 


266 


001 274 


oooooo 


ACTREGJ 


.WORD 









{THIS IS THE DEVICE ACTIVE REGISTER 


267 
















{A BIT IS SET (STARTING AT 


268 
















{BITO)FOR EACH CONTIGUOUS DEVICE 


269 
















{(A MAX. OF 16) THAT IS TO UNDERGO 


270 
















{TESTING, THIS LOCATIO^^ 15 


271 
















{AUTOMATICALLY FILLED BASED ON 


272 
















{USER RESPONSE TO PROGRAM QUESTIONS 


273 


001276 


OOOOOO 


ROTADDl 


.WORD 









{A ROTATING POIfJTER 10 SIGNAL 


274 
















{THE LAST DEVICE ItSTED (IF 


275 
















{MULTIPLE DEVICE TESTING WAS BEING 


276 
















{DOME) IF LESS IriAN A FULL COMPLE- 


27 7 
















{MENT OF DEVICES (16) WAS SELECTED 


278 


001 300 


oooooo 


LASTADDi .WORD 









{STORAGE LOCATION FOR THE 


279 
















{RCSR ADDRESS OF THfe LAST DEVICE 



MAINOEC-1 I-dZDLC-B 
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280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 



001102 
OOJ 304 



OOOOOO 
OOOOOO 



DLPPi! 
LESSIJ 



.WORD 
.WORD 



001106 177740 



STLMSKi 177740 



{END OF USER SUPPLIED TAG(S) 



{TESTED (IF MULTIPLE DEVICE 
{TESTING WAS SELECTED BY USER) 
{STORAGE LOCATION FOR THE DEVICE 
{INTERRUPT PRIORITY LEVEL 
{THE PRIORITY LEVEL THE CPU 
{MUST BE AT TO ALLOW DEVICE INTERRUPTS, 
{THIS WILL BE 1 LEVEL LESS THAN 
{THE DEVICE LEVEL (BASED OH & 
{CALCULATED FROM USER RESPONSE TO 
{DEVICE PRIORITY LEVEL QUESTION) 
{THIS MASK IS USED »Y THE 'STALL' 
{ROUTINE WHICH WAITS A RANDOM NO, 
{OF MILLISECONDS, ITS' USE PREVENTS 
{A STALL > 37 MSEC, THIS LOCATION 
{HOWEVER, CAN BE PATCHED BY THE 
{USER TO ALLOW LARGER 'STALLS', 
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298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
35? 



001310 



001 310 
001 312 
001314 
001 316 



001320 
001322 
001324 
00132'' 



OOI33O 
001332 
001334 
001 336 



001340 
001342 

001 344 

001346 



001 350 

001 352 

001 354 

001 356 



OOI36O 
001362 
OOt 364 



015146 
015215 
015274 
000000 



015312 
015336 
015434 

000000 



015456 
015506 
015604 
000000 



015626 
015700 
015736 

000000 



015750 
016025 
016114 

000000 



015146 
016134 
016174 



,SBTTL ERROR POINTER TABLE 

j*THIS TABLE CONTAINS THE INFOR^iATION FOR EACH EKROH THAT CAN OCCUR. 

I»THE INFORMATION IS OBTAINED BY USING THE INDEX NU^BKH FOUND IN 

j*LOCATION SITEMB, THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PfcRTlMENT, 

»*NOTEll IF SITEMB IS THE ONLY PERTINENT DATA IS (SERRPC), 

f*N0TE2l EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 



t* 
J* 



EM 
DH 
DT 
DF 



I > POINTS TO THE ERROR HESShQE 

nPOINTS TO THE DATA HEADFR 

llPOINTS TO THE DATA 

JIPOINTS TO THE DATA FORMAT 



fERROR TABLE ITEM FOR ERROR MESSAGE I 



EMI 
DHl 
DTI 




J"DL11 REGISTER REFERENCE CAUSED TIMEOUT" 
f" (PC) (PS) (SP) TEST DEVADP REGADR 
J {R7) (PSW) (R6) (RO) (Rl) (R2) 
fPRINT ALL OCTAL 



{ERROR TABLE ITEM FOR ERROR MESSAGE 2 



EM2 
DH2 
DT2 




> " DLU REGISTER ERROR 
)" (PC) (PS) (SP) TEST 
>" (R7) (PSW) (R6) (RO) 
IPRINT ALL OCTAL 



D£\/ADH REGADR wAS S/B 
(Rl) (R2) (R3) (H4) " 



fERROR TABLE ITEM FOR ERROR MESSAGE 3 



EM3 
DH3 
DT3 




>" DLll DATA COMPARE ERROR " 
r" (PC) (PS) (SP) TEST WASADP 
I" (R7) (PSW) (R6) (RO) (Rl) 
fPRINT ALL OCTAL 



SHHADR WAi> S/B 
(R2) (R3) (R4) 



{ERROR TABLE ITEM FOR ERROR MESSAGE 4 



EM4 
DH4 
DT4 




f" UNEXPECTED TRAP TO 
f" (PC) (PS) (SP) 
f" (R7) (PSW) (R6) 
{PRINT ALL OCTAL 



VECTOR AT LnCATION XXX 

TEST 

(RO) " 



{ERROR TABLE ITEM FOR ERROR MESSAGE 5 



EM5 
DH5 
DT5 




{" DLU SOFT ERROR ( PAHITV , FRAMING^ OR OtfERPUN) 
{•' (PC) (PS) (SP) TEST ntVADH REGADR (REG) 
{" (R7) (PSW) {R6) (RO) (Rl) (R2) (H3) " 



{ERROR TABLE ITEM FOR ERROR MESSAGE 6 



EMI 
DH6 
DT6 



{"DLll REGISTER REFKRENCE CAUSED TIMtOUT" 
{" (PC) (PS) (SP) REGADR" 

{ SERRPC, STMP0,SR£G6,SREG2 
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354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 



001366 000000 



00) 370 
001372 
001374 
001376 



OOI4OO 
001402 
001404 
001406 



001410 
001412 
001414 
001416 
001420 
001422 
001424 
001426 
001430 
001432 
001434 
001436 
001440 
001442 
001444 



015750 
016206 
016246 
000000 



015456 
016260 
016326 

000000 



175610 
175612 
175614 
175616 
000300 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



001446 000240 



{PRINT ALL OCTAL 

(ERROR TABLE ITEM FOR ERROR MESSAGE 7 



EMS 
DH7 
DT7 




{" DLU SOFT ERROR ( PARITY, FRAM ING # OR OVERRU-O 
{" (PC) DEVADR REGADR (REG)" 
f SERRPC, SREGl , $REG2, SREG3 
{PRINT AL'L OCTAL 



{ERROR TABLE ITEM FOR ERROR MESSAGE 10 



EM3 
DHIO 
DTIO 




{" DLll DATA COMPARE ERROR " 
{" (PC) DEVADR REGADR (REG) S/B" 
{ SERRPC, SREGl ,SREG2,$PEG3,$HEG4 
{PRINT ALL OCTAL 



{ { »»#♦♦#«*#*#»##*»»*♦#«»*#»#■»»♦##«»*»*♦»##*#♦♦♦»*##*»#»♦#«»»*#»*♦ 

{DLU DEFINITIONS 



DLRCSRi 175610 
DLRDBRt 175612 
DLXCSRI 175614 
DLXDBRI 175616 
DLVECTI 300 
XFLGOi 
RFLGOl 
RFLGll 
RTPYl 
OPTRl 
IPTRI 
LDOUTI 
TIMRli 
TIMP2I 
INTFLGi 



NOP 



{CONTAINS ADDRESS OF PCVR CSR 

{CONTAINS ADDRESS OF RCVR DPR 

{CONTAINS ADDRESS OF XMIT CSR 

{CONTAINS ADDRESS OF XMIT DBR 

{CONTAINS VECTOR ADDRESS OF CURRENT DLU 

{FLAG FOP HARD XMIT ERRORS 

{FLAG FOR HARD PCVR ERRORS 

{FLAG FOR SOFT RCVR ERRORS 
{COUNTS NO, OF RETRIES ON SOFT ERRORS 

{CONTAINS POINTER TO OUTPUT BUFFER 

{CONTAINS POINTER TO INPUT BUFFER 

{CONTAINS POINTER TO LOAD BUFFER RUUTlNt 
{TIMERS FOR 256, BYTE BLOCK TRANSFERS 

{SOFTWARE INTP, FLAG 



{PROGRAM WILL START HERE 



396 


001450 


012706 


oouoo 




MOV 


397 


001454 


005026 






CLR 


398 


001456 


022706 


001140 




CMP 


399 


001462 


001374 






BNE 


400 


001464 


012706 


oouoo 




MOV 


401 










{ INITIALIZE 


402 


001470 


012737 


010476 


000020 


MOV 


403 


001476 


012737 


000340 


000022 


MOV 


404 


OOI5O4 


012737 


010746 


000030 


MOV 


405 


OOI5I2 


012737 


000340 


000032 


MOV 


406 


OOI52O 


012737 


013066 


000034 


MOV 


407 


001526 


012737 


000340 


000036 


MOV 


408 


OOI534 


012737 


013146 


000024 


MOV 


409 


001542 


012737 


000340 


000026 


MOV 



{{LOOP BACK IF NO 
{{SEIUP THE STACK POINTER 



BEGINl 

,SBTTL INITIALIZ5 THE COMMON TAGS 
{{CLEAR THE COMMON TAGS CSCMTAG) AREA 

»8CMTAG,R6 {{FIRST LOCATION TO BE CLEARED 

(R6)+ {{CLEAR MEMORY LOCATION 

»SWR,R6 UDONE? 
.-6 

•STACK, SP 

FEW VECTORS 

#SSCOPE,i«IOTVEC {{lOT VECTOR FOR SCOPE ROUTINE 
#340,§#IOTVEC+2 {{LEVEL 7 

#$ERROR,i»EMIVEC {{EMT VECTOR FOR ERROR ROUTINE 
#340,g#EMTVEC+2 {{LEVEL 7 

«STRAP,9iTRAPVEC {{TRAP VECTOR FOR TRAP CALLS 
#340,g#TBAPVEC+2|LEVEL 7 

#$PWRDN,i#PWRVEC ((POWER FAILURE VECTOR 
#34O,0#PWPVEC+2 { {LEVEL 7 
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410 


001550 


005067 


177466 




CLR 


$TIMES 


41 1 


001554 


005067 


177464 




CLR 


SESCAPE 


412 


001560 


112767 


OOOOOl 


177327 


MDVB 


#1,SERMAX 


413 


001566 


012767 


001566 


177312 


MOV 


«.,SLPADFl 


414 


001574 


012767 


001574 


177306 


MOV 


#.,SLPEBR 



415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
419 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 



001714 
001722 



001724 
001730 
001734 
001736 



JISIZE FOR A 
II EQUAL TO A 



001602 


013746 


000004 






MOV 


9#ERRVEC#-CSP) 


001606 


012737 


001642 


000004 




MOV 


#643#9»ERRVEC 


001614 


012767 


177570 


177316 




MOV 


#DSWR,SWR 


001622 


012767 


177570 


177312 




MOV 


#DD;SP, DISPLAY 


001630 


022777 


177777 


177302 




CMP 


#-«l#&SWR 


001636 


001012 








BNE 


66$ 


001640 


000403 








BR 


65$ 


001642 


012716 


001650 




64$l 


MOV 


#65S» (SP) 


001646 


000002 








RTI 




001650 


012767 


000176 


177262 


65$j 


MOV 


#SWREG,SWR 


001656 


012767 


000174 


177256 




MOV 


#DISPREG, DISPLAY 


001664 


012637 


000004 




66$j 


MOV 


(SP)+,9«ERRVEC 


001670 


005067 


177376 






CLR 


MULTD 


001674 


005067 


177356 






CLH 


TABFLG 


OOI7OO 


012767 


000010 


177326 




MOV 


»8,f $TMP15 



001706 012767 



032777 
0014U 



000200 
000400 



177366 
177216 



IlINITIALIZE NUMBER OF ITERATIONS 
llCLEAR THE ESCAPE ON ERROR ADDRESS 

I I ALLOW ONE ERROR PER TEST 

II INITIALIZE THE LOOP ADDRESS FOR SCOPE 
llSETUP THE ERROR LOOP ADDRESS 

HARDWARE SWITCH REGISTER, IF NOT FOUND OR IT IS 
""i", SETUP FOR A SOFTWARE SWITCH REGISTER, 
jlSAVE ERROR VECTOR 
llSET UP ERROR VECTOR 

llSETUP FOR A HARDWARE SWICH REGISTER 
llAND A HARDWARE DISPLAY REGISTER 
llTRY TO REFERENCE HARDWARE SWR 
jiBRANCH IF NO TIMEOUT TRAP OCCURRED 
I, 'AMD THE HARDWARE SWR IS NOT = -1 
llBRANCH IF NO TIMEOUT 
jlSET UP FOR TRAP RETURN 

JIPOINT TO SOFTWARE SWR 



jCLEAR MULTIPLE DEVICE 
jTESTING FLAG 

jCLEAR TABLE CREATION FLAG 
|SET CHARACTER LENGTH DESIGNATOR 
;FOP 8 BITS — THIS IS THE DEFAULT 
jLEMGTH ASSUMED BY THE PROGRAM 
jUNLESS THE USER CHANGES IT THRU 
jTHE QUESTION AND ANSWER CYCLE 
I INITIATED BY SETTI'-G Sw<0> TO A 1 
;SET STANDARD PRIORITY LEVEL 
;FOP DEVICE 

lis THE 'LOOP OM TEST' SWITCH SET? 
; BRANCH IF NOT 



#200,DLPRI 



BIT #SW8#P5WR 
BEQ IS 



IF THE 'LOOP ON TEST* SWITCH WAS SET WE WILL TAKE THE NEXT BRANCH 
INSTRUCTION THUS BYPASSING TABLE CREATION 

IF THE USER DESIRED TO LOOP ON A TEST OF OTHER THA^' THE DEFAULT DEVICE 
THEN HE SHOULD HAVE PREVIOUSLY FILLED THE FOLLOWING PROGRAM LOCATIONS 
WITH THE DESIRED DEVICE REGISTER VALUES: 

UNDER iDLll DEFINITIONS ABOVE 



104401 
104401 
104000 
104401 



016651 
020673 



DLRCSRi 
DLRDBRI 
DLXCSRI 
DLXDBRi 
DLVECTj 

TYPE, STMES 

TYPE, FAILSA 

ERROR +0 

TYPE, PCMSG 



PATCH THE ADDRESS OF THE RCVR CSP 
PATCH THE ADDRESS OF THF RCVR DBR 
PATCH THE ADDRESS OF THE XmIT CSR 
PATCH THE ADDRESS OF THE XMIT DBR 
PATCH THE VECTOR ADDRESS OF THIS DLll 

fPRlNT OUT 'MAINDEC NAME 
iTYPE FAILSAFE MESSAGE 
jTYPE OUT THE PC VALUE 
jFOLLOWED BY =PC 
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DZDLCB.Pll 06 


-MAY-77 


10104 




INITIALIZE THE 


COMMON TAGS 




466 


001742 


000000 






HALT 




|WAIT FOR USER TO RESPOND 


467 


001744 


000443 






BR 


ONCE 


|G0 TO TEST DEVICE PATCHED IN BY USER 


468 


001746 








ISi 






469 










lENSURE THAT IF 


MULTIPLE DEVICE 


TESTING WAS BEING DONE 


470 










|AND THE USER ' 


HALTED' THE PROGRAM BEFORE ALL DEVICES 


471 










|WERE COMPLETED 


AND WENT BACK TO 


'LOAD ADDRESS 200' 


472 










|T0 RESTART THE 


PROGRAM THAT AS 


A BARE MINIMUM 


473 










|HE CAN RUN THE 


DEFAULT DEVICE (ISI RECEIVER 


474 










iSTATUS REGISTER ADDRESS 175610) 




475 










iNOTEl IF THIS 


IS NOT SUITABLE 


THE USER WILL 


476 










1 HAVE TO 


SET SWOsl COR UP) IN ORDER TO 


477 










f RECREATE THE TABLE HE DESTROYED FROM 


478 










1 ABOVE 






479 


001746 


012767 


175610 


177304 


MOV 


#175610, DLBASE 


flST POSSIBLE RECEIVER CSR 


480 


001754 


004767 


006110 




USR 


PCDLADDR 


•FORM DL ADDRESSES FOR 


481 














llST POSSIBLE DEVICE 


462 


OOI76O 


012767 


000300 


177432 


MOV 


#300,DLVECT 


llST POSSIBLE INTERRUPT VECTOR 


483 


0O1766 


005067 


177264 




CLR 


TABFLG 


iCLEAR TABLE CREATION FLAG 


464 

485 


001772 


012706 


OOllOO 




RESTRTi MOV 


#STACK,SP 


I SET up STACK POINTER 


486 


001776 


012737 


015034 


000004 


MOV 


»BUSERR,§»ERRVEC 


tSET UP BUS ERROR VECTOR 


487 


002004 


012737 


000340 


000006 


MOV 


«340,§#ERRVFC-»-2 




488 


002012 


012737 


015060 


OOOOl 


MOV 


«RSVERR,?#RE5VEC 


ISET UP RSVD INSTR. VECTOR 


489 


002020 


012737 


000340 


000012 


MOV 


#340,g#RESVEC+2 




490 
491 










iTHIS NEXT SECTION WILL CHECK TO SEE IF MULTIPLE DEVICE TESTING 


492 










|WILL TAKE PLACE I.E.- 




493 










1 A) HAS 


FREE RUNNING DEVICE TABLE ALREADY BEEN CREATED, AND/OR 


494 










1 B) IF 


IT HAS, DOES USER 


WISH TO CHANGE IT, OR DO WE TEST DEFAULT 


495 


00202s 


105767 


177224 




TSTB 


TABFLG 


I HAS TABLE CREATION BEEN PERFORMED? 


496 


002032 


001010 






BNE 


ONCE 


{BRANCH IF YES TO SKIP 'MAINDEC 


497 














1 TITLE' MESSAGE 


498 


002034 


104401 


016651 




TYPE 


, STMES 


lOTHERWISE, PRINT OUT 'MAINDEC 


499 














|NAME 


500 


002040 


105167 


177212 




COMB 


TABFLG 


I IF TABLE CREATION HAS NOT BEEN 


501 














iPERFORMED, THEN SET FLAG, AND DO SO 


502 


002044 


032777 


OOOOOl 


177066 


BIT 


#SW0,@SWR 


|THE PROGRAM HAS OBVIOUSLY BEEN 


503 














1 RESTARTED - DOES USER WISH TO 


504 














iRESELECT VECTOR AND CONTROL REGISTER 


505 














{ADDRESSES I,E, » CREATE A NEW TA'BLE? 


506 


002052 


001012 






BNE 


GO 


iBRANCH IF YES 


507 


002054 


005077 


177334 




ONCEl CLR 


lOLXCSR 


iCLEAR OUT BOTH CSR'S 


508 


002060 


005077 


177324 




CLR 


§DLRCSR 




509 


002064 


005777 


177322 




TST 


PDLRDBR 


iFLUSH RCVR "DONE" BIT 


510 


002070 


005777 


177316 




TST 


©DLRDBR 




511 


002074 


000167 


00.0670 




JMP 


TSTl 


lOTHERWISE, GO WITH EXISTING 


512 














1 TABLE OR NOT USE ANY TABLE AT 


513 














|ALL WHICHEVER THE CASE MAY BE 


514 














1 (DEFAULT CASE IS 1ST POSSIBLE 


515 














{DEVICE) 


516 










|IF WE COME THIS PATH THE USER HAS DECIDED 1 OF 2 ALTERNATIVES! 


517 










1 A) TO 


RUN MULTIPLE DEVICES 


518 










1 B) TO 


CREATE A NEW TABLE TO PUN FROM, OR 


519 










1 C) TO 


CHANGE THE CHARACTER LENGTH 


520 


002100 


104401 


017233 




GOi TYPE, 


LENGTH 


|ASK USER FOR THE CHARACTER LENGTH 


521 














{FOR WHICH HIS DEVICE IS SET 



HAINDEC-1 1«DZDLC"B 





iPl ! 06 


i«MA5(''77 


10104 


522 


002 1 04 


10441 1 




523 








524 


002106 


012600 




525 


0021 10 


020027 


00001 


526 


002114 


101114 




527 


002 1 16 


n n A A 

020027 


000005 


528 


002122 


10351 1 




529 


0021 24 


010067 


177104 


5 30 








531 


002 1 30 


10440 1 


017315 


532 








533 


002l 34 


1 A A it 1 A 




5 34 


002 1 36 


0057 26 




535 


0021 40 






5 36 


2 1 42 




0027 24 


537 


0021 46 


012700 


AAA tnn 

V U U J u u 




002 1 52 


012701 


nnn "its') 


539 


002 1 56 


012702 


AAA AAA 

u u u u u s 


si? 


00 2 1 6 2 


1 1 1 




5 41 


002164 


00501 1 




542 


002 1 66 


AC A A A 




543 


0021 70 


A£. A r> A 1 




544 


002l72 


022701 


A A 1 AAA 

u u I u u u 


545 


002176 


0027 71 




546 








547 








548 








549 


002200 


104401 


017 4 22 


550 








551 








552 


002204 


104410 




553 








554 








555 


002206 


012600 




556 


002210 




176170 


557 


002214 


101 060 




558 


0022 i 6 


020027 


1 730 1 


559 


002222 






560 


002224 


132700 


A A A A A i 


561 








562 


002230 


001 05 2 




563 








564 


002232 


032700 


000007 


565 








566 


002236 


001 047 




567 


002240 


010067 


17 7 014 


568 








569 








570 


002244 


016767 


177010 


571 


002252 


004767 


005612 


572 








573 


002256 


016767 


177000 


574 


002264 


104401 


017510 


575 


002270 


104410 




576 








577 
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RDOEC 




m ht^P iP'O T THE" AMfiUlTD TVOCT) RV II^PD 


TO SEE 


TB" f lets' D DC eBflM Siff 


Ufte talTTUTM I.TMTTC 
WAD •* 4 i n 4 " uXnj.lo 


MOV 


I oP) + # RO 


J {jt, I TH-C. ANSWliK iXrCiU 


CMP 


RO # S 8 J 


• TC TUIT MIIMBITD THfl HI tlUt 
J ItO inCi nUPJBCiK lUU rlAunf 




oa'^#k 








• Tfl Till? NfiMniTD Tnn f.nu9 


BLO 


RETRY ' 


• TIT Virc « (in Tn BITTBV <!TTIl3kTTnN 


MOV 


DA aTMDIR 


tTHP" VAfillF TYPFD T S HK 
jinCi vMUUCi iiir&u to urv 






jSTORE FOR FUTURE USE 




DFPAIIT.T 

Uu^C MUiu i 


•ASK USER IF HE WISHES TO TEST OTHKR 






jTHAN THE DEFAULT DEVICE 


RDOCT 




jACCEPT THE ANSWER TYPED BY USER 


TST 


(SP}t 


;LOOK AT THE ANSWER 


BNE 


1$ 


jBRANCH IF REPLY ^kS YES 


JMP 


§»FLUSH 


^OTHERWISE, SKIP REST OF INTERROGATION 


MOV 


»300»R0 


J START RESTORATIO-J OF TRAPCATCHF.R 


MOV 


«302,Rl 


;AREA FROM LOCATIONS 300 TO 776 


MOV 


#4,R2 


;S0 THAT -^E CREATE THE MULTIPLE 


MOV 


Rlf (RO) 


fDEVICES TABLE hITH A CLEAN SLATE 


CLP 


(Rl) 


1 t 


ADD 


R2,R0 


; • 


ADD 


R2,R1 




CMP 


#1000#R1 




BLT 


28 


; • 



»THE TRAPCATCHER VECTOR AREA FROM 300 - 776 SHOULD NOW BE RESTORED, 
fPROCEED TO FIND OUT THE 1ST DEVICE RECEIVER CONTROL REGISTER 
I ADDRESS 

FIRSTDl TYPE ,MFIRSTD ;ASK USER FOP THE RECEIVER CONTROL 

jREGISTER ADDRESS OF HIS FIRST 
IDEVIGE 

RDOCT f ACCEPT THE ANSWER TYPFD BY USER 

yAND STORE ON TOP 0^ STACK 
fCHECK TO SEE IF USER RESPONSE WAS WITHIN LIMITS 

MOV (SP)+,RO , jGET THE ANSWER TYPED 

CMp RO, #176170 ;IS THE NUMBER TOO HIGH? 

BHI RETRYO J IF YES-GQ TO RETRY SITUATION 

CMP R0,# 175610 }IS THE NUMBER TOO LOW? 

BLO RETRYO ;TF YES - GO TO HETPX SITUATION 

BITB #BIT0,R0 ;MUMBER IS IN RANGE BUT IS IT 

;0N AN EVEN SOU^DARY? 

BNE RETRYO ;IF NO - GO TO RETRY SITUATION 

yCHECK TO SEE IF USER RESPONSE TRULY A RCVR STATUS REGISTER 

BIT «7,R0 ;WAS THE LEAST SIGNTFICANT DIGIT OK 

{USER RESPONSE EQUAL TO A ZERO? 

BNE RETRYO jBRANCH IF NOT 

MOV RO,DLBASE ;THE 1ST ADDRESS VALUE TYPED IS OK 

; STORE FOP FUTURE U5E 
jNOW WE ARE READY TO FIND OUT THE DEVICE INTERRUPT VECTOR 



;GET 1ST ADDRESS VALUE 
;G0 FORM DL ADDRESStS FOR 
;1ST DEVICE SELECTED 
KEEPADD,BASEADD jRESTORE 1ST DEVICE ADDRESS 

rASK USER FOR A VECIOR ADDRESS 
; ACCEPT THE ANS^'ER TYPED BY USER 
J AND STORE ON TOP OF STACK 
jCHECK TO SEE IF USER RESPONSE WAS ^ITHIN LIMITS 



VECTI 



MOV 
JSR 

MOV 

TYPE 

RDOCT 



DLBASE,KEEPADP 
PCDLADDR 



,MVECT 
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DZDLCB, 


,pii oe 


(-MAY-77 


10104 




INITIALIZE THE 


COMMON TAGS 




578 


002272 


012600 








MOV 


(SP)+,R0 


;GET THE ANSWER TYPED 


579 


002274 


020027 


000776 






CMP 


R0,#776 


;IS THE NUMBER TOO HIGH? 


580 


002300 


101032 








BHI 


RETRYl 


;IF YES - GO TO RETRY SITUATION 


581 


002302 


020027 


000300 






CMp 


R0,#300 


;IS THE NUMBER TOO LOW? 


582 


002306 


103427 








BLO 


RETRYl 


•IF YES - GO TO RETWY SITUATION 


583 


002310 


132700 


000001 






BITB 


#BITO,RO 


{NUMBER IS IN RANGE BUT IS IT 


584 
















;0N AN EVEN BOUNDARY? 


585 


002314 


001024 








BNE 


RETRYl ' 


;IF NO - GO 10 RETRY SITUATION 


586 








fCHECK 


TO SEE 


IF THE USER RESPONSE WAS TRULY A RCVR VECTOR ADDRESS 


587 


002316 


032700 


000007 






BIT 


#7,R0 j 


{WAS THE LEAST SIGNIFICANT DIGIT OF THE 


588 














{USER RESPONSE EQUAt- TO A ZERO? 


589 


002322 


001021 








BNE 


RETRYl ' 


{BRANCH IF NOT 


590 


002324 


010067 


177070 






MOV 


RO,DLVECT 


{THE VECTOR VALUE TYPED IS OK 


591 
















{STORE FOR FUTURE USE 


592 


002330 


016767 


177064 


176730 




MOV 


DLVECT,KEEPIV 


{GET THE FIRST VECTOR VALUF 


593 


002336 


016767 


177056 


176724 




MOV 


DLVECT»BASEIV 


{SAVE FIRST VECTOR VALUE 


594 


002344 


000414 








BR 


HOWMANY 


{GO TO SEE IF USER i^ANTS MORE 


595 














{THAN 1 DEVICE 


596 


002346 


104401 


001252 




RETRYl 


TYPE, 


SQUES 


{TYPE '?' INDICATING USER TYPED 


597 














{SOMETHING WRONG FOR CHARACTER LENGTH 


598 


002352 


000167 


177522 






JMP 


GO 


{GO BACK TO REISSUE QUESTION 


599 


002356 


104401 


001252 




RETRYO: 


TYPE 


rSQUES 


{TYPE '?' INDICATING USER TYPE 


600 
















{SOMETHING WRONG FUH 1ST ADDRESS 


601 


002362 


000167 


177612 






JMP 


FIRSTD 


{GO BACK TO REISSUE QUESTION 


602 


002366 


104401 


001252 




RETRYl 1 


TYPE 


,$OUES 


{TYPE •?' INDICATING USER TYPED 


603 
















{SOMETHING WRONG FOR VECTOR 


604 


002372 


000167 


177666 






JMP 


VECT 


{GO BACK TO REISSUE QUESTION 


605 


002376 


104401 


017566 




HOWMANYlTYPE 


,MULDEV 


{ASK USER IF HE WISHES TO RUN 


606 














{MULTIPLE DEVICES 


607 


002402 


104410 








RDOCT 




{ACCEPT THE ANSWER TYPED BY USER 


608 
















{AND STORE ON TOP OF STACK 


609 


002404 


012600 








MOV 


(SP)+,RO 


{GET THE ANSWER TYPED 


610 


002406 


005700 








TST 


BO 


{WAS THE ANSWER YFS? 


611 


002410 


001003 








BNE 


19 


{BRANCH IF IT WAS 


612 


002412 


005067 


176654 






CLR 


MULTD 


{OTHERWISE, INITIALIZE FLAG TO 


613 
















{INDICATE NON-MULTIPLE DEVICES 


614 


002416 


000402 








BR 


28 


{SKIP NEXT INSTRUCTION 


615 


002420 


105167 


176646 




ISl 


COMB 


MULTD 


{INITIALIZE FLAG TO INDICATE 


616 














{RUNNING OF MULTIPLE DEVICES 


617 


002424 








2Sl 








618 


002424 


105767 


176642 






TSTB 


WULTD 


{ARE THERE MULTIPLE DEVICES ON 


619 
















{THE SYSTEM? 


620 


002430 


100406 








BMI 


LASTD |TF SO, 


GO TO ASK NEXT QUESTION 


621 


002432 


005067 


176636 






CLB 


ACTREG 


{CLEAR DEVICE ACTIVE FLAG TO 


622 
















{INDICATE NO RUNNING OF MULTIPLE 


623 
















{DEVICES 


624 


002436 


005067 


176634 






CLR 


ROTADD 


{CLEAR DEVICE ADDRESS POINTER IN 


625 














{USE WHEN RUNNING MULTIPLE DEVICES 


626 


002442 


000167 


000160 






JMP 


CONOUES 


{SKIP ASKING NEXT QUESTION 


627 


002446 








LASTDi 








628 










fWE WILL NOW BEGIN TO SET UP THE 


: DEVICE ACTIVE REGISTER FOR RUNNING 


629 










^MULTIPLE DLll 


DEVICES 




630 


002446 


104401 


017653 






TYPE 


,MLASTD 


{ASK USER FOR THE RECEIVER 


631 














{CONTROL REGISTER ADDRESS OF 


632 
















{HIS LAST DEVICE 


633 


002452 


104410 








RDOCT 




{ACCEPT THE ANSWER TYPED BY 
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DZDLCB, 


Pll 06 


-MAY-77 


10104 




INITIALIZE THE 


COMMON TAGS 




634 
















jUSER and STORE ON TOP OF STACK 


635 










fCHECK 


TO SEE 


IF THE USER RESPONSE WAS WITHIN LIMITS 


636 


002454 


012600 






i$ i 


MOV 


(SP)+,R0 


;GET THE ANSWER TYPED 


637 


002456 


020027 


176170 






CMP 


RO, #176170 


;IS THE NUMBER TOO HIGH? 


639 


002462 


101132 










RETRY2 


jIF YES - GO TO RETRY SITUATION 


639 


002464 


020027 


175610 






CMP 


RO, #175610 


?IS THE NUMBER TOO LOW? 


640 


002470 


103527 








BLO 


RETPY2 


;IF YES - GO TO RETRY SITUATION 


641 


002472 


132700 


000001 






BITB 


#BIT0f RO 


yNUMBER IS IN RANGE BUT IS IT 


642 
















;0N AN EVEN BOUNDARY? 


643 


002476 


001124 








BNE 


RETRY2 . 


J IF NOT - GO TO RETRY SITUATION 


644 










f CHECK 


TO SEE 


IF USER RESPONSE WAS TRULY A RCVR STATUS REGISTER 


645 


002500 


032700 


000007 






BIT 


»7,R0 


jWAS THE LEAST SIGNIFICANT DIGIT OF THE 


646 
















fUSER RESPONSE EQUAL TO A ZERO? 


647 


002504 


001121 








BNE 


RETRY2 


jBRANCH IF NOT 


649 


002506 


010067 


176566 






MOV 


R0,LA.STADD 


jTHE LAST ADDRESS VALUE TYPED IS OK 


649 
















; STORE FOR FUTURE USE 


650 










}NDW WE BEGIN 


TO ACTUALLY INITIALIZE THE DEVICE ACTIVE REGISTER 


651 










fFROM 


WHICH THE PROGRAM WILL CYCLE UNTIL ALL DEVICES HAVE BEEN TESTED 


652 


002512 


012767 


000001 


176556 




MOV 


«1,P0TADD 


{SET up POINTER FOP 'ACTREG' 


653 


002520 


005067 


176550 






CLR 


ACTREG 


fCLEAR DEVICE ACTIVE REGISTER 


654 


002524 


056767 


176546 


176542 


2$i 


BIS 


R0TADD# ACTREG 


fMAKE 1ST DEVICE ACTIVE 


655 


002532 


000241 








CLC 




;CLEAR CARRY BIT FOR POINTER 


656 
















;ROTATION 


657 


002534 


006167 


176536 






RQL 


ROTADD 


jARE WE PAST 16 LINE RANGE? 


658 


002540 


103422 








BCS 


3$ 


; BRANCH IF YES 


659 


002542 


062767 


000010 


176514 




ADD 


#10#BASEADD 


jSTEP UP BASE ADDRESS 


660 


002550 


026767 


176524 


176306 




CMP 


LASTADD,BASEADD 


J IS THIS THE LAST DEVICE? 


661 


002556 


101362 








BHI 


2$ 


{BRANCH IF NOT 


662 










jNOTE: 


IF THIS PATH IS TAKEN IT 


IS ASSUMED THAT AT LEAST 2 DEVICES 


663 










t 


EXIST 


AND THAT ALL ADDRESSING IS CONTIGUOUS 


664 


002560 


056767 


176512 


176506 




BIS 


ROTADD, ACTREG 


{INDICATE NEXT DEVICE ACTIVE 


665 


002566 


012767 


000001 


176502 




MOV 


#1, ROTADD 


{RESET POINTER FOR 'ACTREG' FOR 


666 
















{LATER USE IN END OF PASS ROUTINE 


667 


002574 


016767 


176462 


176462 




MOV 


KEEPAD,BASEADD 


{RESET 1ST DEVICE RECEIVER 


669 
















{CONTROLLER REGISTER ADDRESS FOR 


669 
















{LATER USE IN END OF PASS ROUTINE 


670 


002fi02 


000167 


000020 






JMP 


CONQUES 


jGO TO CONTINUE QUESTIONING OF USER 


671 


002606 








3SJ 








672 










lIF WE 


TAKE THIS PATH IT APPEARS 


THAT THERE ARE NOT AT LEAST 


673 










fTWO DEVICES PRESENT - IN PESPONSF TO USER TYPING 'YES' TO MULTIPLE 


674 










iDEVICES QUESTION 




675 


002606 


016767 


176450 


176450 




MOV 


KEEPADD,BASEADD 


{RESET 1ST DEVICE RECEIVER 


676 
















{CONTROLLER REGISTER ADDRESS 


677 


002614 


104401 


017751 






TYPE 


,MRANGE 


{INFORM USER TO CHECK AND RETYPE 


678 
















{THE LAST DEVICE RCSR ADDRESS 


679 


002620 


104410 








RDOCT 




{ACCEPT THE ANSWER TYPED BY USER 


680 
















{AND STORE ON TOP OF STACK 


681 


002622 


000167 


177626 






JMP 


IS 




682 


002626 








CONQUESI 






683 










J IF WE 


HAVE REACHED THIS PORTION 


WE KNOW! 


684 










t 


A) THE 'RXCSR' ADDRESS 


OF THF 1ST DEVICE 


685 










1 


B) THE 'RXCSR' ADDRESS 


OF THF. LAST DEVICE, SAND 


686 










1 


C) THE INTERRUPT VECTOR 


OK THE 1ST DEVICE 


687 










;NOW LET'S FIND THE PRIORITY LEVEL 


688 


002626 


104401 


020035 






TYPE 


rPLEVEL 


{ASK USER fOR PRIORITY LEVEL 


689 


1)02632 


104410 








RDOCT 




{ACCEPT ANSWER TYPED BY USER AND 



MAINDEC-1 1-DZDLC-R 



MACYll 30(1046) 



DZDLCfl.PU 06 


-MAY-77 


I0J04 




690 










691 


002634 


012600 






692 


002636 


020027 


000007 




693 


002642 


101046 






694 


002644 


020027 


000004 




695 


002650 


103443 






696 


002652 


010067 


176424 




697 










698 










699 










700 










701 










,702 


002656 


006367 


176420 




703 


002662 


006367 


176414 




704 


002666 


006367 


176410 




705 


002672 


006367 


176404 




706 


002676 


006367 


176400 




707 


002702 


016767 


176374 


176374 


708 










709 


002710 


162767 


000001 


176366 


710 










711 


002716 


042767 


000037 


176J60 


712 










713 


002724 


005077 


176464 




714 


002730 


005077 


176454 




715 


002734 


005777 


176452 




716 


002740 


005777 


176446 




717 


002744 


000167 


000020 




718 


002750 


104401 


001252 




719 










720 


002754 


000167 


177466 




721 


002760 


104401 


001252 




722 










723 


002764 


000167 


177636 




724 










725 










726 










727 










72B 










729 


002770 


000004 






730 


002772 


016746 


175006 




731 


002776 


012767 


003014 


175000 


732 


003004 


016702 


176400 




733 


003010 


005712 






734 


003012 


000407 






735 


003oi4 


004767 


0U112 




736 


003020 


012767 


003030 


176216 


737 


003026 


104001 






738 


003030 


022626 






739 


003032 


012667 


174746 




740 










741 










742 










743 










744 


003036 


000004 






745 


003040 


016746 


174740 
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MOV 
CMP 
BHI 
CMP 
BLO 
MOV 



(SP)+,RO 
RO, «7 
RETRY3 
RO, #4 
RETPY3 
RO,DLPRI 



{STORE ON TOP OF STACK 

{GET THE ANSWER TYPED 

{IS THE NUMBER TOO HIGH? 

{IF YES - GO TO RETRY SITUATION 

{IS THE NUMBER TOO LOW? 

{IF YES GO TO RETRY SITUATION 

{THE PRIORITY TYPED IN IS OK 

{STORE FOR FUTURE USE 



{THIS SECTION WILL CALCULATE THE PRIORITY LEVEL FOR THE 
{PROCESSOR BASED ON THE USER RESPONSE FOR PRIORITY LEVEL OF THE 
{DEVICE 



ASL 


DLPRI 


{FORM BITS <7-5> OF PSW 


ASL 


DLPPI 




ASL 


DLPPI 




ASL 


DLPRI 




ASL 


DLPRI 




MOV 


DLPRI, LESSl 


{START TO FORM LEVEL TO ALLOW 






{INTERRUPTS 


SUB 


#1,LESS1 


{DROP DEVICE LEVEL PRIORITY 






{BY 1 LEVEL FOR PSW 


BIC 


#37, LESSl 


{MAKE SURE THE T,N,Z,V & C 






{BITS FOR THE PROCESSOR ARE CLEAR 


CLR 


0DLXCSR 


{CLEAR OUT BOTH CSR'S 


CLR 


gDLRCSR 




TST 


iDLPDBR 


{FLUSH RCVR "DONE" BIT 


TST 


0DLRDBR 




JMP 


TSTl 


{BEGIN TESTING 


TYPE 


,$QUES 


{TYPE '?' INDICATING USER TYPED 






{SOMETHING WRONG FOP LAST ADDRESS 


JMP 


LASTD {GO 


BACK TO REISSUE QUESTION 


TYPE 


,SQUES 


{TYPE'?' INDICATING USER TYPED 






{SOMETHING WRONG FOR PRIORITY 


JMP 


CONQUES 


{GO BACK TO REISSUE QUESTION 



1 1 *»««»««««»«»«•*«««»««««««»»««««#««#«'»»«»««'«#««««««««*«««#*«»««« 

{*TEST 1 TEST THAT REFERENCE TO RCSR DOES NOT CAUSE TIMEOUT 

{ I «««*«««#«»««*«««««««««»»«««««#«»««*«#««»«»«»«««#»««««»•««*««««« 

TSTl I 



SCOPE 






MOV 


ERRVEC»-(SP) 


{SAVE THE TIMEOUT VECTOR 


MOV 


#1$,ERRVEC 


{GO TO 18 IF TIMEOUT 


MOV 


DLPCSR,R2 


{REGADR s RCSR ADR 


TST 


(R2) 


{USE REGADR ON BUS 


BR 


3$ 


{{<G0 TO NEXT TEST IF NO TIME0UT> 


JSP 


PCSUERTl 


{GO SET UP ERROR INFO 


MOV 


#2$,$ESCAPE 


{RETURN TO 28 AFTER ERROR PRINT 


ERROR+l 




{DL REFERENCE CAUSED BUS TIMEOUT 


CMP 


(SP)+,(SP)+ 


{CLEAN STACK FROM TIMEOUT 


MOV 


(SP)+,ERRVEC 


{RESTORE TIMEOUT VECTOR 



2$i 
381 

{ {»♦**»#########«#*##»»#*###**##»##««##*«###»###«»##»#»#«#«#«♦#*# 

{•TEST 2 TEST THAT REFERENCE TO XCSR DOES NOT CAUSE TIMEOUT 

1 { »««*««*««««««»»«»»*«««««»«««««««»«*«»««»«««««#»»»«««»»*»«#««*«• 

TST2I SCOPE 

MOV ERRVEC,-(SP) {SAVE THE TIMEOUT VECTOR 
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746 


003044 


012767 


003062 


747 


003052 


016702 


176336 


748 


003056 


005712 




749 


003060 


000407 




750 


003062 


004767 


011044 


751 


003066 


012767 


003076 


752 


003074 


104001 




753 


003076 


022626 




754 


003100 


012667 


174700 


755 








756 








757 








758 








759 


003104 


000004 




760 


003106 


016746 


174672 


761 


003112 


012767 


003130 


762 


003120 


016702 


176266 


763 


003124 


005712 




764 


003126 


000407 




765 


003130 


004767 


010776 


766 


003134 


012767 


003144 


767 


003142 


104001 




768 


003144 


022626 




769 


003146 


012667 


174632 


770 








771 








772 








773 








774 


003152 


000004 




775 


003154 


016746 


174624 


776 


003160 


012767 


003176 


777 


003166 


016702 


176224 


778 


003172 


005712 




779 


003174 


000407 




780 


003l76 


004767 


010730 


781 


003202 


012767 


003212 


782 


003210 


104001 




783 


003212 


022626 




784 


003214 


012667 


174564 


785 








786 








787 








788 








789 


003220 


000004 




7^0 


003222 


005004 




791 


003224 


016702 


176160 


792 


003230 


020412 




793 


003232 


001403 




794 


003234 


004767 


010612 


795 


003240 


104002 




796 








797 








798 








799 


003242 


000004 




800 


003244 


012704 


000200 


801 


003250 


016702 


176140 



174732 



MOV 


#l8iEPRVEC 


;GQ TO IS IF TIMEOUT 


MOV 


DLXCSR,R2 


jREGADB a XCSR ADR 


TST 


CR2) 


fUSE REGADR OM BUS 


BP 


3$ 


;|<G0 TO NEXT TEST IF NU TIN'EOUT> 


JSP 


PCSUERTl 


;G0 SET UP ERROR INFO 


MOV 


#2$#$ESCAPE 


J RETURN TO 28 AFTER ERROR PRINT 


EPRQR41 




jDIi REFERENCE CAUSED BUS TIMEOUT 


CMP 


(SP)+,(SP)+ 


jCLEAN STACK FROM TIMEOUT 


MOV 


(SP)+,ERRVEC 


; RESTORE TIMEOUT VECTOR 



2$l 
3Sl 

f»TEST 3 TEST THAT REFERENCE TO RDBR DOES NOT CAUSE TIMEOUT 

1 f #######»#*##»»##*»###»»*#*«»#•»♦♦*#»♦#»»♦»#*»♦#»#♦#»»♦»*#**#»♦* 

TST3I 



SCOPE 






MOV 


ERRVECf-CSP) 


;SAVE THE TIMEOUT VECTOR 


MOV 


#1$,ERRVEC 


;G0 TO IS IF TIMEOUT 


MOV 


DLRDBR»R2 


J REGADR = RDBR ADR 


TST 


(P2) 


|USE REGADR ON BUS 


BR 


38 


;><G0 TO NEXT TEST IF NO TIMEOUT> 


JSB 


PCSUERTl 


;G0 SET UP ERROR INFO 


MOV 


#2S#SESCAPE 


;RETURN TO 2$ AFTER ERROR PRINT 


ERROR+l 




>DL REFERENCE CAUSED BUS TIMEOUT 


CMP 


(SP)+, CSP)+ 


;ClEAN STACK FROM TIMEOUT 


MOV 


(SP)+,ERRVEC 


; RESTORE TIMEOUT VECTOR 



2$l 
3$l 

I f 

>»TEST 4 TEST THAT REFERENCE TO XDBR DOES NOT CAUSE TIMEOUT 

I J »»*#«*»«*»»«««««*»»*«*#««»*«»«««'»«««'»««««#***«*«««»«««***»«*»'»* 

TST4I 



SCOPE 






MOV 


EPRVEC,-(SP) 


ySAVE THE TIMEOUT VECTOR 


MOV 


»1S»ERRVEC 


;G0 TO IS IF TIMEOUT 


MOV 


DLXDBR»P2 


; REGADR = XDBR ADR 


TST 


(R2) 


;USE REGADR ON BUS 


BR 


3$ 


; f <G0 TO NEXT TEST IF Nn TIMEOUT> 


JSP 


PCSUERTl 


;G0 SET UP ERROR I^FO 


MOV 


»2S»SESCAPE 


jRETURN TO 2$ AFTER ERROR PRINT 


EPROR+1 




fDL REFEPENCE CAUSED BUS TIMEOUT 


CMP 


(SP)+, {SP)+ 


; CLEAN STACK FROM TIMEOUT 


MOV 


(SP)+,ERRVEC 


; RESTORE TIMEOUT VECTOR 



2$I 
3Sl 



,»TEST 5 TEST THAT BCSP IS ALL ZEROES ON ENT«Y 
I > 

TST5J SCOPE 

CLR R4 ;RESULT IN pCSR S/B a o 

MOV DLRCSR,R2 ;REGADR = RCSR ADP 

CMP P4,(R2) ; [RCSR3=000000 ?? 

BF.Q TST6 ;j<BP IF YES> 

JSR PC,SUER2 ?G0 SET UP ERROR IN'i^'O 

EPROB+a jRCSR NOT CLEAR ON START UP 

I } 

>»TEST 6 TEST THAT "READY" BIT IS ONLY BIT SPT 1^ XCSR 
I f 

TST6J SCOPE 

MOV #200, R4 jRESULT IN XCSR S/B = 000200 

MOV DLXCSR#R2 ;RtGADR = XCSR ADR 
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802 


003254 


020412 








CMP 


P4,(R2) 


; CXCSR]=000200 ?? 




803 


003256 


001403 








BEU 


TST7 


;|<8P IF YES> 




804 


003260 


004767 


010566 






JSR 


PC,SUER2 


?G0 SFTUP ERROR InFO 




805 


003264 


104002 








EPROR+2 




jtXCSR} INCORRECT DN START UP 




806 










} I 




807 










|»TEST 


7 


TEST THAT "MAINT 


'" BIT CAN BE SET fiND CLEARED 




808 










f J «»##### »#######»*#**»#»«###»##*»*^*»» »##»#♦»#♦#♦#** »♦♦###♦#♦##» 




809 


003266 


000004 






TST7J 


SCOPE 








810 


003270 


012704 


000204 






MOV 


#204, R4 


;RESULT IN XCSR S/B = 0U0204 




811 


003274 


016702 


176114 






MOV 


DLXCSR,R2 


;R£GADR a XCSR ADR 


lllill^ 


812 


003300 


052712 


000004 






BIS 


«BIT2# (R2) 


;SET THE "MAINT" BIT 


813 


003304 


020412 








CMP 


P4,CR2) JRESULT 


IN XCSR OK ?? 




814 


003306 


001403 








BEQ 


18 


;f<BR IF yES> 




815 


003310 


004767 


010536 






JSR 


PC,SUER2 


;G0 SET UP ERROR INFO 




816 


003314 


104002 








EPROR+2 




jMAINT, BIT FAILED TO SET PROPERLY 




817 


003316 


012704 


000200 




l$l 


MOV 


«200,R4 


jRESULT IN XCSR S/B = 000200 




818 


003322 


042712 


000004 






BIC 


#BIT2» CR2) 


;NOW CLEAR THE "MAINT" BIT 




819 


003326 


020412 








CMP 


B4, (P2) 


jRESULT IN XCSR OK ?? 




820 


003330 


001403 








BEQ 


TSTIO 


j;<BR IF YES> 




821 


003332 


004767 


010514 






JSR 


PC,SUEB2 


;G0 SET UP ERROR INFO 




822 


003336 


104002 








ERROH+2 




jMAINT BIT FAILED TO CLEAR PROPERLY 




823 














824 










l«TE5T 


10 


TEST THAT XMIT I 


,E, CAN CAUSE AN IKTP 




825 










) } ########»#»♦##«##»###*##♦#»#####♦«#»##»♦*»**»»###♦##»#♦♦##♦**♦♦ 




826 


003340 


000004 






TSTlOi 


SCOPE 








827 


003342 


005067 


176076 






CLR 


INTFLG 


jINIT SOFTWARE INTR FLAG 




828 


003346 


016705 


176046 






MOV 


DLVECT,R5 


jGET VECTOR ADDRESS 




829 


003352 


012765 


003440 


000004 




MOV 


#2$,4(R5] 


;G0 TO 4S ON INTR 




830 


003360 


016765 


175716 


000006 




MOV 


DLPPI,6(R5) 


^PRIORITY LEVEL 4 




831 


003366 


005005 








CLR 


R5 


; INIT INTR, TIMER 




832 


003370 


012704 


000200 






MOV 


»200,R4 


;RESULT IN XCSR S/B s 000200 




833 


003374 


016702 


176014 






MOV 


DLXCSR,R2 


yPEGADP s XCSR ADR 




634 


003400 


052712 


000100 






BIS 


#100, (P2) 


;SET INTR, ENABLE BIT 06 




835 


003404 


005767 


176034 




181 


TST 


INTFLG 


;DID INTR OCCUR YET ?? 




836 


003410 


001020 








BNE 


3$ 


jBR IF IT DID 




837 


003412 


005305 








DEC 


B5 


fCOUNT THE TIMER 




838 


003414 


001373 








BNE 


18 


;BR IF NO TIMEOUT 




839 


003416 


012704 


000300 






MOV 


»300,B4 


jRESULT IN XCSR S/B = 000300 




840 


003422 


004767 


010424 






JSB 


PC,SUER2 


jGO SETUP ERROR INFO 




841 


003426 


012767 


003436 


175610 




MOV 


#48,SESCAPE 


; RETURN TO 4S AFTER ERROR PRINT 




842 


003434 


104002 








EBB0R<l-2 




jiNTR, FAILED 




843 


003436 








4$l 










844 


003436 


000412 








BR 


TSTU 


j»<GO TO NEXT TEST> 


845 


003440 


005167 


176000 




231 


COM 


INTFLG 


jSET THE SOFTWARE FLAG 




846 


003444 


042712 


000100 






BIC 


#100, (R2} 


fTURN OFF I.E. BIT 




847 


003450 


000002 








BTI 




^RETURN CONTROL TO INTR, ROUTINE 




846 


003452 


020412 






3«t 


CMP 


R4,CR2) 


jRESULT IN XCSR OK ?? 




849 


003454 


001403 








BEQ 


TSTU 


f|<BR IF YES> 




850 


003456 


004767 


010370 






JSR 


PC,SUEB2 


|G0 SET UP ERROR INFO, 




851 


003462 


104002 








EPROR+2 




fXMIT INTR, NOT SERVICED PROPERLY 




852 










1 1 »»»«««*««**«»«*#«««««»*#*«««#««««»»««»»«««««««»*«««»«#«»«*«««»« 




653 










,»TEST 


U 


TEST THAT BCVR I 


,E, BIT CAN BE SET AND CLEARED 




654 














855 


003464 


000004 






TSTUl 


SCOPE 








856 


003466 


012704 


000100 






MOV 


#100, R4 


; RESULT IN RCSR S/B s 000100 




857 


00347-2 


016702 


175712 






MOV 


DLRCSR,P2 


J REGADR s RCSR ADR 





MAINDEC 


-ll-DZDLC-B 


HACYl I 


30( 1046) 


12-JUL 


-77 10102 PAGE 17 




DZOI.CB, 


PI 1 


!)6»MAY-77 


10104 




TU 


TEST THAT PCVR I,E, BIT CAN BE SET AND CLEARED 


858 


003476 


052712 


000100 






BIS 


#BIT6»(R2) JSET I.E, BIT 


859 


003502 


020412 








CMP 


B4,(R2) jDID IT SET PROPERLY 17 


860 


003504 


001 403 








BEQ 


IS 


j<BR IF YES> 


861 


003506 


004767 


010340 






JSR 


PC,SUER2 jGU SET UP ERROR INFO, 


862 


003512 


1 04002 








ERROB+2 


jRCVR I.E. BIT FAILED TO SET PROPERLY 


863 


003514 


005004 






ISl 


CLR 


R4 {RESULT IN RCSR S/8 a 000000 


864 


003516 


042712 


000100 






BIC 


»BIT6,(R2) 


CLEAR THE I,E, BIT 


865 


003522 


020412 








CMP 


R4,(B2) IDID IT CLEAR PROPERLY ?? 


866 


003524 


001 403 








BEQ 


TST12 n<BR IF yES> 


867 


003526 


004767 


010320 






JSR 


PC,SUER2 


GO SET UP ERROR INFO 


868 


003532 


104002 








ERROR-l-2 


?RCVR I.E. BIT FAILED TO CLEAR PROPERLY 


869 












870 










f »TEST 


12 


TEST THAT RCVR "DONE" CAN GENERATE AN INTR, 


871 












872 


003534 


000004 






TST12I 


SCOPE 






873 


003536 


01 6705 


175656 






MOV 


DLVECT# R5 


GET THE VECTOR ADDRESS 


874 


003542 


012725 


003720 






MOV 


#3$f (RS)**- 


GO TO 3$ ON RCVR INTR, 


875 


003546 


016715 


175530 






MOV 


DLPRI, (R5) 


AT LEVEL 4 


876 


003552 


005067 


175666 






CLR 


INTFLG 


INIT THE SOFTWARE FLAG 


877 


003556 


005005 








CLR 


P5 


INIT INTR, TIMER 


878 


no3560 


105067 


175420 






CLRB 


$TMP1 


INIT WHERE DATA WILL BE STORED 


879 


003564 


016702 


175620 






MOV 


DLrCSR/ R2 


REGADR a RCSR ADR 


880 


003570 


00501 2 








CLP 


CP2) 


INJT THE RCSR TO 000000 


881 


003572 


052712 


000100 






BIS 


#BIT6» CR2) 


ENABLE RCVR INTERRUPTS 


882 


r> 3 5 7 6 


052762 


000004 


000004 




BIS 


#BIT2#4(R2) 


NOW TURN ON MAINT ^'ODE 


883 


003604 


112767 


000252 


175372 




MOVE 


#252# STMPi 


GET DATA PATTERN AND 


884 


003612 


004767 


Oil 126 






JSR 


PC, UPMASK 


GO MASK OFF BITS AS A FUNCTION OF 


885 
















CHARACTER LENGTH C 5» 6, 7, OR 8 BITS) 


886 


003616 


1 1 6700 


175410 






MOVB 


STMP14i»P0 


SAVE DATA PATTERN FUR FURTHER USE 


887 


003622 


J 16762 


175404 


OnOOUb 




MOVB 


$TMP14#6CR2) 


LOAD XMIT BUFFER REG^ 


888 


003630 


005767 


175610 




ISJ 


TST 


INTFLG 


DID RCVR INTR, YET ?? 


889 


003634 


001044 








BNE 


4S 


BR IF IT DID 


890 


003636 


005305 








DEC 


R5 


COUNT THE TIMER 


891 


003640 


001 373 








BNE 


1$ 


BR IF NO TIMEOUT 


892 


00 3642 


013767 


177776 


175332 




MOV 


0«PSW,$TMPO 


SAVE ERROR PSW 


893 


003650 


042762 


0000.04 


000004 




BIC 


#BIT2,4(R2) 


DISABLE MAINT "ODE 


894 


003fi56 


042712 


000100 






BIC 


#100, (R2) 


DISABLE RCVR INTR, 


895 


003662 


01 0667 


175310 






MOV 


SP,SBEG6 


SAVE THE ERROR SP 


896 


DO 3666 


01 0201 








MOV 


R2,R1 


DEVADR = RCSR ADR 


897 


O0367O 


01 1203 








MOV 


(R2)»R3 


GET THE WAS DATA 


898 


O03672 


012704 


000200 






MOV 


#200, P4 


tHCSR] S/B = 000200 


899 


3676 


004767 


010176 






JSR 


PC/SUERRl 


GO SET UP ERROR INFO, 


900 


O03702 


0! 2767 


003712 


175334 




MOV 


»2S,SESCAPE 


RETURN TO 2S AFTER ERROR ALWAYS 


901 


003710 


104002 








ERROR+2 




RCVR INTERRUPT FAILED 


Q02 


0037 12 


005762 


000002 




2$: 


TST 


2CR2) 


REFERENCE RCVR DATA BUFFER 


903 
















TO CLEAR RCSR IN CASE RCVR 


904 
















INTERRUPTS COULD NOT BE ENABLED 


905 


003716 


000437 








BR 


TST13 


}<G0 TO NEXT TEST> 


906 


003720 


042762 


000004 


000004 


3SI 


BIC 


#8IT2,4(B2) 


DISABLE THE MAINT MODE 


907 


003726 


116267 


000002 


175250 




MOVB 


2(R2),$TMPl 


GET THE RECEIVED DATA 


908 


003734 


042712 


000100 






BIC 


SBIT6, (R2) 


TURN OFF RCVR INTR. ENAB 


909 


003740 


005167 


175500 






COM 


INTFLG J 


SET THE SOFTWARE FLAG 


910 


U03744 


000002 








BTI 




RETURN TO MAINLINE 


9U 


003746 


005004 






4$i 


CLR 


R4 


CRCSR] S/BsO 


912 


003750 


005712 








TST 


(R2) 


IS IT ALL ZEROES ?? 


913 


003752 


00140 3 








BEQ 


SS 


j<BR IF YES> 



MAINDEC 


-11 -dzdlc 




MACYl 1 


30( 1046) 


12-JUL 


-77 10102 PAGE 18 




DZDLCB.PU 06 


-MAY-77 


10104 




T12 


TEST THAT RCVR "DONE" CAN GENERATE AN INTR, 


914 


003754 


004767 


010072 






JSR 


PC,SUEB2 


jGO SET UP ERROR INFO 


915 


003760 


104002 








ERROR+2 




;RCVR INTR NOT SERVICED PROPERLY 


916 


003762 


016701 


175424 




5Sj 


MOV 


DLRDBR,R1 


;SAVE WAS ADDRESS 


917 


003766 


016702 


175424 






MOV 


DLXDBR,R2 


jSAVE THE S/B ADDRESS 


918 


003772 


004767 


010746 






JSR 


PC, UPMASK 


?GET THE WAS DATA AND 


919 
















jGO MASK OFF BITS AS A FUNCTION OF 


920 
















fCHARACTER LENGTH ( 5, 6, 7, OR 8 BITS) 


921 


003776 


1 16703 


175230 






MOVB 


8TMP14,R3 


;SET UP FOR ERROR CHECKING 


922 


004002 


110004 








MOVB 


R0,R4 


;GET THE S/B DATA 


923 


004004 


020403 








CMP 


B4,R3 


;WAS = S/B ?? 


924 


004006 


001403 








BEQ 


TST13 


;j<PB IF YE5> 


925 


004010 


004767 


010064 






JSR 


PCSUERRl 


;G0 SET UP THE ERROR INFO 


926 


U0401 4 


104003 








ERROR+3 




jDATA COMPARE ERROR 


927 










f } 


928 










J#TEST 


13 


TEST THAT "REQ 


TO SEND" ASSERTS "RING" 


929 












930 


004016 


000004 






TST13J 


SCOPE 






931 


004020 


032777 


010000 


175112 




BIT 


#SW12,9SWR 


;ARE WE TESTING /C OR /D MODEL? 


932 


004026 


001047 








BNE 


TST14 


M<BBANCH IF YES> 


933 


004030 


012704 


140004 






MOV 


#140004, R4 


fRESULT IN RCSR S/B = 140004 


934 


004034 


016702 


175350 






MOV 


DLRCSR,R2 


;REGADR a RCSR ADR 


935 


004040 


005012 








CLR 


CB2) 


jINIT THE RCSR TO 000000 


936 


004042 


052712 


000004 






BIS 


#8IT2, (R2) 


KSET "REQ to SEND" 


937 


004046 


032777 


100000 


1>^5334 




BIT 


#BlT15#eDLRCSR 


|DID "RING" SET "DATA SET INT" ? 


938 


004054 


001003 








BNE 


1$ 


n<BR IF YES> 


939 


004056 


004767 


007770 






JSR 


PC,SUER2 


;G0 SET UP ERROR INFO, 


940 


004062 


104002 








EPROR+2 


J "RING 


' TRANSITION FAILED TO SET "DATA SET INT" 


941 














iNOTEf 


"BIT #BIT15,(R2)" RESETS BIT15 


942 


004064 


012704 


040004 




1$! 


MOV 


#40004, R4 


jRESULT IN RCSR S/B b 40004 


943 


004070 


020412 








CMP 


R4, CR2) 


jBOTH "RING" AND "REQ TO SEND" ASSERTED ? 


944 


004072 


001403 








BEQ 


2$ 


n<BB IF YES> 


945 


004074 


004767 


007752 






JSR 


PC,SUER2 


;G0 SET UP ERROR INFO. 


946 


004100 


104002 








ERROR+2 




,'"RING" OB "BEQ TO SEND" FAILED TO SET 


947 


004102 


005004 






2S| 


CLR 


R4 


jRESULT IN RCSR S/B s 000000 


948 


004104 


042712 


000004 






BIC 


I!BIT2, (R2) 


iCLEAR "BEQ TO SEND" 


949 


004110 


032777 


100000 


175272 




BIT 


#BIT15,0DLRCSR 


jDID "DATA SET INT" GET SET ?? 


950 


0041 16 


001403 








BEQ 


38 


U<BR IF NOT> 


951 


004120 


004767 


007726 






JSR 


PC,SUEB2 


JGO SET UP ERROR INFO 


952 


004124 


104002 








ERROR+2 




{CLEARING "RING" SET "DATA SET INT" 


953 


004126 


020412 






381 


CMP 


R4,(R2) 


fBCSR CONTAIN ALL ZEROES 17 


954 


004130 


001406 








BEQ 


TST14 


n<BR IF yES> 


955 


004132 


004767 


007714 






JSR 


PC,SUER2 


jGO SET UP ERROR INFO, 


956 


004136 


016767 


000002 


175034 




MOV 


,+6f $BEG7 


jSAVE THE ERROR PC 


957 


004144 


104002 








ERROB+2 




{CLEARING "REQ TO SEND" FAILED TO CLEAR "RING" 


958 












959 










»*TEST 


14 


TEST THAT "SEC 


XMIT" ASSERTS "SEC BEC" AND "DATA SET INT" 


960 












96i 


004146 


000004 






TST14I 


SCOPE 






962 


004150 


0J2777 


010000 


174762 




BIT 


#SW12,@SWB 


{ARE WE TESTING /C OR /D MODEL? 


963 


004156 


001046 








BNE 


TST15 


n<BRANCH IF YES> 


964 


004160 


016702 


175224 






MOV 


DLRCSR,B2 


{REGADR 3 RCSR ADR 


965 


004164 


005012 








CLR 


(B2) 


{INIT RCSB TO 000000 


966 


004166 


012704 


102010 






MOV 


#102010, R4 


{CONTENTS OF RCSR S/B a 102010 


967 


004172 


052712 


000010 






BIS 


#BIT3, CR23 


{SET "SEC XMIT" BIT 


968 


004176 


032777 


100000 


175204 




BIT 


#BlTl5»f>DLRCSB 


{DID "DATA SET INT" SET ?? 


969 


004204 


001003 








BNE 


13 


{ {<BR IF YES> 



MAINDEC-lt-DZDLC»B MACYll 30(10465 12-JUL-77 10|02 PAGE 19 



DZDLCB 


P 1 1 06 


«"MAYw77 


i 1 04 




Tl 4 


TuST THAT "SEC XMIT" ASSERTS "SEC BEC AND "DATA SET INT" 


970 


u y H ^ V o 


004767 


007640 






JSf? 


PC,SUER2 


jGO SET UP ERROR IMFO 


971 


004212 


104002 








EPROR+2 




; "DATA SET INT" FAILED TO SET-NOTE THAT 


















f"aIT #B1T15,CR2)" RESETS B1T15 


97 3 


004214 


012704 


0020 1 




1 $ i 


MOV 


#2010, R4 


jRESULT IN RCSR S/S = 2010 


97 4 


004220 


02041 2 








CMP 


R4, CR2) 


}ARE "SEC XMIT" AND "SEC REC" BOTH SET ? 


97S 


004222 


001 403 








BCQ 


2S 


n<BR IF YES> 


976 


004224 


004767 


007622 






JSR 


PC,SUER2 


;G0 SET UP ERROR INFO 




A A A 'I 1 A 


1 04002 








ERROR+2 




|"SEC XMIT" OR "SEC PEC" FAILED TO SET 


978 
















jOR "DATA SET INT" FAILED TO BE CLEAhbD 


979 
















jwHEN REFERENCING RCSR 


980 


004232 


012704 


1 00000 




2S t 


MOV 


»BIT15#R4 


jPESULT IN RCSR S/B = 100000 


981 


004236 


042712 


000010 






BIC 


#BIT3, (R2) 


;CLEAR "SEC XMIT" BIT 


982 


004?42 


032777 


1 00000 


175140 




BIT 


»B1T15,9DLRCSR 


;DID CLEARING IT SET "DATA SET INT"?? 


98 3 


004250 


001003 










3$ 


* ; <BR IF YCS> 


984 


004252 


004767 


007574 






JSR 


PC,SUER2 


JgO SET UP ERROR INFO, 


985 


004256 


104002 








EBROR+2 




fCLEAPlNG "SEC XMIT" FAILED TO SET "DATA 


986 
















JSET INT, (NOTE THAT REFERENCING RCSR 


987 
















f CLEARS "DATA SET INT" 


968 


004260 


005004 






381 


CLlR 


R4 


jRESULT IN RCSR S/b = 000000 


989 


004262 


020412 








CMP 


R4, (R2) 


;"SEC XMIT" AND "SEC PEC" CLEAR ? 


990 


Q04264 


001 403 








BEQ 


TST15 


JI<BR IF YES> 


991 


004266 


004767 


007560 






JSR 


PC,SUER2 


;G0 SETUP ERROR INFO 


992 


004272 


104002 








ERPOR+2 




;"SEC XMIT" OR "SEC REC" FAILED TO CLtAH 


99 3 














;0R REFERENCING RCSR FAILED TO CLEAR "DATA 


995 










f 

l*TEST 


15 


TEST THAT "DTP" 


CAN ASSERT "CLR TO SEND" AND "CAR DEf" 














997 


00427 4 


000004 






TST15I 


SCOPE 






998 




032777 


010000 


174634 




BIT 


»SW12#§SWR 


;APt WE TESTIfJG /C OR /D MODEL? 




04 3 4 


V V i V •to 








BNE 


TST16 


M<fiRANCH IF yES> 


1000 


A A A 3 A A 
U U *t J V o 




175076 






MOV 


DLRCSR,R2 


•REGAOR = RCSR ADR 


1 00 ) 


004 312 


00501 2 








CLH 


(P2) 


;INIT RCSR TO 000000 


1002 


004 3 1 4 


012704 


130002 






MOV 


#130002#P4 


;peSULT IN RCSR S/B = 130002 


1003 


004320 


052712 


000002 






BIS 


«BIT1, (R2) 


;S£T "OTR" BIT 




004 324 


032777 


1 OOOOn 


175056 




BIT 


#B1T15,3DLRCSR 


jDlD "DATA SET iNT" SET ?? 




004332 


001003 








BME 


1$ 


•><8P IF YES> 




004334 




751? 






JSR 


PC,SUEP2 


;G0 SET UP ERROR INFO, 


1 007 


004340 


104002 








ERROR+2 




;"DATA SET INT" FAILED TO SET - 


1 n ifl 
















;NOTE! THE FEFEREnCF TO RCSR ABOVE WILL 


1009 
















HILL UNCONDITIONALLY CLEAp RCSR HIT 15. 


1010 


004342 


012704 


030002 




IS: 


MOV 


«30002»P4 


jPSSULT IN RCSR S/B = 30002 




004346 


02041 2 








CMP 


R4, (R2) 


{"DTP", "CLR TO SEND", AND "CAR DET" ALLSET 


1 ni 9 


004350 


00140 3 








BEQ 


2$ 


;><BP IF ALL SET> 


■ - 






007 47 4 






JSR 


PC,SUEP2 


;GU SET UP ERROR IN'^O 




4 5 ^3 O 


1 04002 








EPR0R-»-2 




;"DTR","CLR TO SEND" OR "CAR DET" HAILEO 


1015 
















;T0 SET UR "DAT* SET INT" FAILED TO CLtAH 


lOJ 6 


004360 


012704 


100000 




2SJ 


MOV 


«BIT15#R4 


jRESULT IN RCSR S/B = 100000 


1017 


004364 


U42712 


000002 






BIC 


#BIT1,(R2) 


;NOW CLEAR "DTP" 


1018 


004370 


032777 


100000 


175012 




bIT 


#BIT15,PDLRCSR 


■DID "DATA SET InT" SET ?? 


1019 


004376 


001003 








BNE 


3S 


;><RR IF YES> 


1020 


004400 


004767 


007446 






JSR 


PC,SUEP2 


;G0 SETUP ERROR INFO 


1021 


004404 


104002 








EPPOR4-2 




;"OATA SET INT" FAILED TO SET WHEN "DTR" 


1022 
















;wENT TO A ZERO, 


1023 


004406 


005004 






3$l 


CLR 


R4 


•RESULT IN PCSR S/B = 000000 


1024 


004410 


020412 










R4, f P2) 


•DIP ALL BITS CLEAR?? 


1025 


004412 


001403 








BEQ 


TST16 


;f<HR IF YtS> 
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1026 


004414 


004767 


007432 




JSR 


PC,SUER2 


;GU SET UP ERROR InFO 


1027 


004420 


104002 






EPPOR+2 




.npxR«,"CLR TO SEND" OR "CAR DET" FAILED 


1028 














;T0 CLEAR PROPERLY 


1029 










1 } 


1030 










|»TEST 16 


TEST THAT "DATA 


SET INT ENAB" CAN SET AND CLEAR 


1031 










t 1 ***************************** **^** ******** 


1032 


004422 


000004 






TST16I SCOPE 






1033 


004424 


032777 


01 0000 


174506 


BIT 


#Swl2, 0SMR 


;ARE''WE TESTING /C OR /D mqdEL? 


1034 


004432 


001023 






PNE 


TST17 


;><BRANCH IF YES> 


1035 


004434 


016702 


174750 




MOV 


DLRCSP,R2 


jREGADP s RCSR ADR 


1036 


004440 


012704 


000040 




MOV 


#40#R4 


;ReSULT IN RCSR S/b = 000040 


1037 


004444 


052712 


000040 




BIS 


#BIT5, (R2) 


;SET THE "DATA SET I.E." BIT 


1038 


004450 


020412 






CMP 


R4, (R2) 


;Din IT SET OK ?? 


1039 


004452 


001403 






BEQ 


IS 


;;<BR IF YES> 


1040 


004454 


004767 


007372 




JSP 


PC,SUER2 


jGO SET UP ERROR TNFO 


1041 


004460 


104002 






ERROR+2 




;"DAT SET I, E," FAILED TO SET 


1042 


004462 


005004 






iSt CLR 


R4 


;MAKE S/B DATA s 000000 


1043 


004464 


042712 


000040 




BIC 


#BIT5,(R2) 


jNOw CLEAR THE "DATA SET I.E." BIT 


1044 


004470 


020412 






CMP 


R4,(R2) 


;DID IT CLEAR OK ?? 


1045 


004472 


001403 






BEQ 


TST17 


;j<BR IF YES> 


1046 


004474 


004767 


007352 




JSR 


PC,SUER2 


;GU SET UP FRROR INFO. 


1047 


004500 


104002 






ERROR+2 




;"DATA SET I.E." FAILED TO CLEAP 


1048 










f ; ****************** **************)t********************** ******** 


1049 










l»TEST 17 


TEST THE "DATA 


SET I.E." CAN CAUSE A RCVR INTR 


1050 










1 } **^******************************#***** ************ ************ 


1051 


004502 


000004 






TST17I SCOPE 






1052 


004504 


032777 


010000 


174426 


BIT 


»SW12,@SWR 


jARE WE TESTING A /C OR /D MODEL? 


1053 


004512 


001054 






BNE 


TST20 


n<BPANCH IF YES> 


1054 


004514 


016705 


174700 




MOV 


DLVECT,P5 


;GET THE VECTOR ADDR 


1055 


004520 


012725 


004606 




MOV 


#3S#(R5)+ 


;G0 TO 3$ ON RCVR I^TR, 


1056 


004524 


016715 


174552 




MOV 


DLPPl, (R5) 


;AT LEVEL 4 


1057 


004530 


00500S 






CLP 


R5 


fINIT INTR, TIMER 


1058 


004532 


005067 


174706 




CLR 


INTFLG 


;INIT SOFTWARE FLAG 


1059 


004536 


005004 






CLR 


R4 


jRESULT IN RCSR S/B = AFTER INTR, 


1060 


004540 


016702 


174644 




MOV 


DLPCSR,P2 


jREGADP 3 RCSR ADR 


1061 


004544 


052712 


000040 




BIS 


#BIT5i (R2) 


ySET THE "DATA SET I.E." BIT 


1062 


004550 


052712 


000002 




BIS 


»BIT1, CR2) 


jNOW SET "DTR" TO GEN INTR, 


1063 


004554 


005767 


174664 




ISI TST 


INTFLG 


?DID INTR OCCUR YET ?? 


1064 


004560 


001016 






BNE 


4$ 


;BR IF YES 


1065 


004562 


005305 






DEC 


R5 


jCOUNT THE TIMER 


1066 


004564 


001373 






BNE 


1$ 


jBR IF NO TIMEOUT 


1067 


004566 


004767 


007260 




JSP 


PC,SUER2 


iGO.SET UP ERROR INFO 


1068 


004572 


005012 






CLR 


(R2) 


;TURN IT ALL OFF 


1069 


004574 


012767 


004604 


174442 


MOV 


#28,$ESCAPE 


;COME BACK TO 2$ IN ALL CASES 


1070 


004602 


104002 






EPROR+2 




;"DATA SET" INTR FAILED TO OCCUR 


1071 


004604 








2Sl 






1072 


004604 


000417 






BP 


TST20 


;f<GO TO NEXT TEST> 


1073 


004606 


00S012 






3S| CLR 


(R2) 


jZERQ THE RCSR 


1074 


004610 


005167 


174630 




COM 


INTFLG 


jSET THE SOFTWARE FLAG 


1075 


004614 


000002 






RTI 




jPETURN TO SENDER 


1076 


004616 


032712 


lOOOOO 




4Sl BIT 


#BIT15, CR2) 


;DID "DATA SET INT" GET SET BY INTR. SERVICE 


1077 


004622 


001003 






BNE 


5$ 


n<8R IF YES> 


1078 


004624 


004767 


007222 




JSP 


PC,SUER2 


jGO SET UP ERROR INFO 


1079 


004630 


104002 






EPROR+2 




iDATA SET INTR, NOT SERVICED PROPERLY 


1080 


004632 


020412 






SSI CMP 


R4,(R23 


jALL BITS IN PCSR CLEAR ?? 


1081 


004634 


001403 






BEQ 


TST20 


n<BR IF yES> 
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1082 


004636 


004767 


007210 


loaa 


004642 


104002 




1084 








1085 








1086 








1087 


004644 


000004 




1088 


004646 


032777 


010000 


1089 


004654 


001024 




1090 


004656 


012704 


000201 


1091 


004662 


016702 


174526 


1092 


004666 


052712 


000001 


1093 


004672 


020412 




1094 


004674 


001403 




1U95 


004676 


004767 


007150 


1096 


004702 


104002 




1097 


004704 


012704 


000200 


1098 


004710 


042712 


OOOOOl 


1099 


00471 4 


020412 




1 100 


004716 


001 403 




1101 


004720 


004767 


007126 


U02 


004724 


104002 




1103 








1104 








1 105 








1 106 








1 107 








1 108 


004726 


000004 




1109 


004730 


012704 


000200 


1110 


004734 


016702 


174454 


nil 


004740 


052712 


OOOOOl 


1112 


004744 


000005 




1113 


004746 


020412 




1114 


004750 


001403 




1115 


004752 


004767 


007074 


1116 


004756 


1 04002 




1117 









JSR PC,SUEB2 ;G0 SET UP ERROR INFO 

ERROR+2 jINTR, SERVICE FAILED TO CLEAR RCSB 

f*TEST 20 TEST THAT THE "BREAK" BIT CAN BE SET AND CLEARED 

TST201 



SCOPE 






BIT 


#SM12f @SMR 


;ARE WE TESTING /C OR /D MODEL? 


BNE 


TST21 


}j<BRANCH IF YES> 


MDV 


#201»R4 


; RESULT S/B a 201 IN XCSR 


MOV 


DLXCSR»R2 


jSET UP REGADR 


BIS 


#B1T0,'(P2) 


;SET THE "BREAK" BIT 


CMP 


R4,(R2) 


;D1D IT SET PROPERLY ?? 


BEQ 


1$ 


;f<BR IF YES> 


JSR 


PC,SUER2 


;G0 SET UP ERROR INFO, 


ERHOR+2 




; "BREAK" BIT FAILED TO SET PROPERLY 


MOV 


#200, R4 


JRESULT S/B B 200 IN XCSR 


BIC 


#BITO, (P2) 


jCLEAR THE "BREAK" BIT 


CMP 


H4, (R2) 


;DID IT CLEAR PROPERLY ?? 


BEQ 


TST21 


n<BR IF YES> 


JSR 


PC,SUER2 


jGO SET UP ERROR INfO 


EPROR4-2 




; "BREAK" FAILED TO CLEAR PROPERLY 



}»TEST 21 TEST THAT A "RESET" CLEARS THE "BREAK" BIT 

I I «««««» 

TST2l{ 



SCOPE 






MOV 


«200,R4 


; RESULT S/B = 200 


MOV 


DLXCSR,R2 


fSET UP REGADR 


BIS 


#BIT0, (R2) 


;SET THE "BREAK" BIT 


RESET 




;CLEAP IT WITH A "RESET" 


CMP 


R4, (R2) 


JDID IT CLEAR ?? 


BEQ 


TST22 


; ;<BB IF YES> 


JSR 


PC,SUEP2 


;G0 SET UP ERROR INFO, 


ERR0Rf2 




yPESET INSTP, FAILED TO CLEAR 
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1119 










;*TEST 


22 


TEST TO TURN 


AROUND NULL-DEL-NULL PATTERN 


1 120 










J J «»*««#«»«»««*»*«««»««««■»««««««*«««««»««#««*»«*«»««»«««*»«*««««« 


1121 


004760 


000004 






TST22! 


SCOPE 






1122 


004762 


012767 


OOOOOl 


174252 




MOV 


»1,$TIMES 


;>D0 1 ITERATION 


1123 


004770 


004767 


007212 






JSR 


PCSUVEC 


;G0 SET UP VECTORS 


1124 


004774 


005067 


174430 






CLR 


RTRY 


ylMTIALIZE RETRY FLAG 


1125 


005000 


012767 


01 4362 


174430 


ISl 


MOV 


#LD0UT1,LD0UT 


;S£T POINTER TO LOAD ROUTINE 


1126 


005006 


004767 


007222 






JSR 


PC, PRIME 


;G0 SET UP BUFFERS AND DEVICE 


1127 


005012 


005767 


174404 




2$i 


TST 


XFLGO 


jANY HARD XMIT ERRORS ?? 


1 128 


005016 


001040 








BNE 


5S 


;BR IF YES 


1129 


005020 


005767 


174400 






TST 


RFLGO 


;ANY HARD RECEIVER ERROR ?? 


1130 


005024 


001053 








BNE 


7S 


;BR IF YES 


1131 


005026 


005767 


174374 






TST 


BFLGl 


;ANY SOFT RECEIVER ERRORS ?? 


U32 


005o32 


001065 








BNE 


9S 


jBR IF YES 


1133 


005034 


022767 


022260 


174372 




CMP 


#BUFEND, IPTR 


jRECEIVED 256, BYTES ?? 


1134 


005042 


001003 








BNE 


3$ 


jPR IF NOT 


1135 


005o44 


004767 


007456 






JSR 


PCCHKDAT 


jGO CHECK THE DATA PUFFERS 


1136 


005050 


000500 








BR 


TST23 


;}<G0 TO NEXT TEST> 


1137 


005052 


005367 


174362 




3Sl 


DEC 


TIMRI 


jDEC TIMEOUT COUNTER 1 


11 38 


005056 


001355 








BNE 


2S 


;BR IF NO TIMEOUT 


1 139 


005060 


005367 


174356 






DEC 


TIMP2 


jDEC TIMEOUT COUNTED 2 


1140 


005064 


001352 








BNE 


2$ 


yBR IF NO TIMEOUT 


1141 


005o66 


042777 


OOOlOO 


174314 




BIC 


#100,9DLRCSP 


;TURN OFF THE INTRS, 


1142 


005074 


042777 


000104 


174312 




BIC 


#l04,eDLXCSR 




1143 


005102 


104401 


016342 






TYPE 


,XMSGl 


;G0 TYPE TIMEOUT MESSAGE 


1 144 


005106 


012767 


0051 16 


174130 




MOV 


#4$,$ESCAPE 


;G0 TO 4$ AFTER ERROR PRINT 


1145 


0051 14 


104000 








ERROR 




fPRINT ERROR PC 


1146 


0051 16 








4$: 








1147 


0051 16 


000455 








BR 


TST23 


J j<GO TO NEXT TEST> 


1148 


005120 


016701 


174264 




5S! 


MOV 


DLRCSR,Pl 


yPUT DEVADR IN Rl 


1149 


005124 


016702 


174264 






MOV 


DLXCSR,R2 


yPUT REGADR IN P2 


1150 


005130 


011203 








MOV 


(B2)#R3 


jGET THE WAS DATA 


1151 


005132 


012704 


000204 






MOV 


#204, P4 


fPUT S/B DATA IN R4 


1152 


005136 


004767 


006736 






JSR 


PC,SUERR1 


fGO SET UP ERROR INFO 


1153 


005142 


012767 


005152 


174074 




MOV 


#6$,$ESCAPE 


»G0 TO 6$ AFTER PRINTING ERROR 


1154 


005150 


104002 








EPROR+2 




;TRANSMITTER FALSE INTERRUPT 


1155 


005152 








6SI 








1156 


005152 


000437 








BR 


TST23 


n<GO TO NEXT TEST> 


1157 


005154 


016701 


174230 




7SI 


MOV 


DLRCSR,P1 


jSAVE THE DEVADR 


1158 


005160 


010102 








MOV 


R1,R2 


J SAVE THE REGADR 


1159 


005162 


011203 








MOV 


tR2)#R3 


fGET THE WAS DATA 


1160 


005164 


012704 


000200 






MOV 


#200, R4 


;RESULT S/B = 200 


1161 


005170 


004767 


006704 






JSR 


PCSUERRl 


;G0 SET UP ERROR INFO 


1162 


005174 


012767 


005204 


174042 




MOV 


«8$,$ESCAPE 


}G0 TO 8$ AFTER ERROR PRINT 


1163 


005202 


104002 








ERROR+2 




jRECEIVER FALSE INTERRUPT 


1164 


005204 








8$! 








1165 


005204 


000422 








BR 


TST23 


ti<GO TO NEXT TEST> 


1166 


005206 


016701 


174176 




9$l 


MOV 


DLPCSR,R1 


;SAVE THE DEVADR 


1167 


005212 


016702 


174174 






MOV 


DLRDBR,R2 


;SAVE REGADR 


1168 


005216 


016703 


173762 






MOV 


$TMP1,R3 


iGET CONTENTS OF ERROR RDBR 


1169 


005222 


004767 


006652 






JSR 


PC,SUERP1 


jGO SETUP ERROR INFO 


1170 


005226 


012767 


005236 


174010 




MOV 


#10$,SESCAPE 


jGO TO lOS AFTER ERROP PRINT 


1171 


005234 


IO4005 








ERROR+5 




jREPORT SOFT ERROR ( PARITY, FRAMING, OR OVERRUN 


1172 


005236 


005267 


174166 




10$| 


INC 


RTRY 


^COUNT ONE TRY 


1173 


005242 


022767 


000003 


174160 




CMP 


#3, RTRY 


;TRIED THREE TIMES 
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1175 










ji 1 ««««««»««»«»»««»«*#«*«««*«««««»«'»««»»»««»«»««»*»«'»«««««'«'»««»*'»« 


1176 










1 *TEST 


23 


TEST TO TURN 


AROUND BINARY UP COUNT PATTERN 


1177 












1178 


005252 


000004 






TST23I 


SCOPE 






1179 


005254 


012767 


000001 


173760 




MOV 


»1,STIMES 


;|D0 1 ITERATION 


1180 


005262 


004767 


006720 






JSR 


PC»SUVEC 


jGO SET UP VECTORS 


1181 


005266 


005067 


174136 






CLR 


RTRY 


flNITIALIZE RETRY FLAG 


1182 


005272 


012767 


014404 


174136 


ISI 


MOV 


«LD0UT2»LD0UT 


;SET POINTER TO LOAD ROUTINE 


1183 


005300 


004767 


006730 






JSR 


PC, PRIME 


;G0 SET UP PUFFERS AUD DEVICE 


1184 


005304 


005767 


174112 




2$l 


TST 


XFLGO 


;ANY HARD XMIT ERROHS ?? 


1185 


005310 


001040 








BNE 


58 


;BR IF YES 


1186 


005312 


005767 


174106 






TST 


RFLGO 


;ANY HARD RECEIVER FRROR ?? 


1187 


005316 


001053 








BNE 


78 


;BR IF YES 


1188 


005320 


005767 


174102 






TST 


RFLGl 


fANY SOFT RECEIVER fc;BROHS ?? 


1189 


005324 


001065 








BNE 


9$ 


?BR IF YES 


1190 


005326 


022767 


022260 


174100 




CMP 


#BUFENDiIPTR 


{RECEIVED 256, BYTES ?? 


1191 


005334 


001003 








BNE 


3$ 


yBR IF NOT 


1192 


005336 


004767 


007164 






JSR 


PCCHKDAT 


;G0 CHECK THE DATA BUFFERS 


1193 


005342 


000500 








BR 


TST24 


;j<GO TO NEXT TEST> 


1194 


005344 


005367 


174070 




3$l 


DEC 


TIMRl 


;DEC TIMEOUT COUNT!: P 1 


1195 


005350 


001355 








BNE 


28 


;8R IF NO TIMEOUT 


1196 


005352 


005367 


174064 






DEC 


TIMR2 


fDEC TIMEOUT COUNTER 2 


1197 


005356 


001352 








BNE 


28 


;BR IF NO TIMEOUT 


1198 


005360 


042777 


000100 


174022 




BIC 


»100,@DLRCSR 


jTURN OFF THE INTRS, 


1199 


005366 


042777 


000104 


174020 




BXC 


«104,?DLXCSR 




1200 


005374 


104401 


016421 






TYPE 


,XMSG2 


jGO TYPE TIMEOUT MESSAGE 


1201 


005400 


012767 


005410 


173636 




MOV 


#48'8ESrAPE 


jGO TO 48 AFTER ERROR PRINT 


1202 


005406 


104000 








ERROR 




IPRINT ERROR PC 


1203 


005410 








4$l 








1204 


005410 


000455 








BR 


TST24 


1 j<GO TO NEXT TEST> 


1205 


005412 


016701 


173772 




5$J 


MOV 


DLRCSR,R1 


;PUT DEVADR IN Rl 


1206 


005416 


016702 


173772 






MOV 


DLXCSR,R2 


jPUT REGADR IN R2 


1207 


005422 


011203 








MOV 


(R2)rR3 


jGET THE WAS DATA 


1208 


005424 


012704 


000204 






HOV 


#204, R4 


;PUT S/B DATA In R4 


1209 


005430 


004767 


006444 






JSR 


PCSUERRl 


jGO SET UP ERROR INFO 


1210 


005434 


012767 


005444 


173602 




MOV 


#6|,$ESCAPE 


;G0 TO 68 AFTER PRINTING ERROR 


1211 


005442 


104002 








ERR0R4'2 




jTHANSMITTER FALSE INTERRUPT 


1212 


005444 








6S| 








1213 


005444 


000437 








BR 


TST24 


f><GO TO NEXT TEST> 


1214 


005446 


016701 


173736 




7$l 


MOV 


DI<RCSR,R1 


>SAVE THE DEVADR 


1215 


Q0S452 


010102 








MOV 


Rl,P2 


?SAVE THE REGADR 


1216 


005454 


011203 








MOV 


(R2)#R3 


iGET THE WAS DATA 


1217 


005456 


012704 


000200 






MOV 


»200,R4 


jRESULT S/B = 200 


1218 


005462 


004767 


006412 






JSR 


PCSUERRl 


|G0 SET UP ERROR INFO 


1219 


005466 


012767 


005476 


173550 




MOV 


»88#8ESCAPE 


;G0 TO 88 AFTER ERROR PRINT 


1220 


005474 


104002 








ERR0R-(-2 




{RECEIVER FALSE INTERRUPT 


1221 


005476 








8$l 








1222 


005476 


000422 








BR 


TSI24 


j|<GO TO NEXT TEST> 


1223 


005500 


016701 


173704 




9$l 


MOV 


DLRCSRiRl 


{SAVE THE DEVADR 


1224 


005504 


016702 


173702 






MOV 


DLRDBR,R2 


fSAVE REGADR 


1225 


005510 


016703 


173470 






HOV 


$TMP1,R3 


jGET CONTENTS OF ERROR PDBR 


1226 


005514 


004767 


006360 






JSR 


PCSUERRl 


fGO SETUP ERROR INFO 


1227 


005520 


012767 


005530 


173516 




MOV 


«10$»$ESCAPE 


;G0 TO 108 AFTER ERROR PRINT 


1228 


005526 


104005 








ERROR+S 




{REPORT SOFT ERROR { PARITY, FRAMING 


1229 


005530 


005267 


173674 




lOSi 


INC 


RTRY 


{COUNT ONE TRY 


1230 


005534 


022767 


000003 


173666 




CMP 


»3,RTBY 


{TRIED THREE TIMES 



OR OVERRUN 
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1232 








1233 








1234 








1235 


005544 


000004 




1236 


005546 


012767 


000001 


1237 


005554 


004767 


006426 


1238 


005560 


005067 


173644 


1239 


005564 


012767 


014424 


1240 


005572 


004767 


006436 


1241 


005576 


005767 


173620 


1242 


005602 


001040 




1243 


005604 


005767 


173614 


1244 


005610 


001053 




1245 


005612 


005767 


173610 


1246 


005616 


001065 




1247 


005620 


022767 


022260 


1248 


005626 


001003 




1249 


005630 


004767 


006672 


1250 


005634 


000500 




1251 


005636 


005367 


173576 


1252 


005642 


001355 




1253 


005644 


005367 


173572 


1254 


005650 


001352 




1255 


005652 


042777 


OOOlOo' 


1256 


005660 


042777 


000104 


1257 


005666 


104401 


016502 


J25fl 


005672 


012767 


005702 


1259 


005700 


104000 




1260 


005702 






1261 


005702 


000455 




1262 


005704 


016701 


173500 


1263 


005710 


016702 


173500 


1264 


005714 


011203 




1265 


005716 


012704 


000204 


1266 


005722 


004767 


006152 


1267 


005726 


012767 


005736 


12^8 


005734 


104002 




1269 


005736 






1270 


005736 


000437 




1271 


005740 


016701 


173444 


1272 


005744 


010102 




1273 


005746 


011203 




1274 


005750 


012704 


000200 


1275 


005754 


004767 


006120 


1276 


005760 


012767 


005770 


1277 


O05766 


104002 




1278 


005770 






1279 


005770 


000422 




1280 


005772 


016701 


173412 


1281 


005776 


016702 


173410 


1282 


006002 


016703 


173176 


1283 


006006 


004767 


006066 


1284 


006012 


012767 


006022 


1285 


006020 


104005 




1286 


006022 


005267 


173402 


1287 


006026 


022767 


000003 



173466 
173644 



l*TEST 
) } «»«« 
TST24I 



1$! 
2SI 



«»««#«««*««*«»«««««»»•«»«««»»«««*«*«»««««»#»««»««'»««#»*«««« 

24 TEST TO TURN AROUND BINARY DOWN COUNT PATTERN 

*««»*«»•*»»#«#*««««««»»•««*»#«««#»««««»•««««»»#«»««««»*««»« 



173530 
173526 



4$l 
581 



6$l 
7SI 



SSI 
9$i 



173224 
173374 



SCOPE 






MOV 


»1,STIMES 


JJDO 1 ITERATION 


JSR 


PCSUVEC 


;G0 SET UP VECTORS 


CLR 


RTRY 


^INITIALIZE RETRY FLAG 


MOV 


»LD0UT3»LD0UT 


JSET POINTER TO LOAD ROUTINE 


JSR 


PC, PRIME 


jGO SET UP BUFFERS AND DEVICE 


TST 


XFLGO 


;ANY HARD XMIT ERRORS ?? 


BNE 


5S 


}BR IF YES 


TST 


RFLGO 


;ANY HARD RECEIVER KRROR ?? 


BNE 


78 


jBR IF YES 


TST 


RFLGl 


;ANY SOFT RECEIVER ERRORS ?? 


BNE 


98 


;BR IF YES 


CMP 


#BUFEND,IPTR 


jRECEIVED 256, BYTES ?? 


BNE 


38 


jBR IF NOT 


JSR 


PCCHKDAT 


^GO CHECK THE DATA BUFFERS 


BR 


TST25 


n<GO TO NEXT TEST> 


DEC 


TIMRl 


?DEC TIMEOUT COUNTER 1 


BNE 


28 


;BR IF NO TIMEOUT 


DEC 


TIMR2 


;DEC TIMEOUT COUNTER 2 


BNE 


28 


;BR IF NO TIMEOUT 


BIC 


«100,iDLRCSR 


jTURN OFF THE INTRS. 


BIC 


»104,9DLXCSR 




TYPE 


,XMSG3 


J GO TYPE TIMEOUT MESSAGE 


MOV 


#48#8ESCAPE 


;G0 TO 48 AFTER ERROR PRINT 


ERROR 




;PRINT ERROR PC 


BR 


TST25 


n<GO TO NEXT TEST> 


MOV 


DLRCSRyRl 


?PUT DEVADR IN Rl 


MOV 


DLXCSR»R2 


;PUT REGADR IN R2 


MOV 


(R2}rR3 


;GET THE WAS DATA 


MOV 


#204, R4 


jPUT S/B DATA IN R4 


JSR 


PC,SUERR1 


?G0 SET UP ERROR INFO 


MOV 


#6S#SESCAPE 


;G0 TO 68 AFTER PRINTING ERROR 


ERROR+2 




^TRANSMITTER FALSE INTERRUPT 


BR 


TST25 


y><GO TO NEXT TEST> 


MOV 


DLRCSRf Rl 


ISAVE THE DEVADR 


MOV 


R1,R2 


;SAVE THE REGADR 


MOV 


(R2)»R3 


jGET THE WAS DATA 


MOV 


#200, R4 


? RESULT S/B a 200 


JSR 


PCSUERRl 


jGO SET UP ERROR INFO 


MOV 


#8Sf 8ESCAPE 


jGO TO 88 AFTER ERROR PRINT 


ERROR+2 




^RECEIVER FALSE INTERRUPT 


BR 


TST25 


j><GO TO NEXT TEST> 


MOV 


DLRCSR,R1 


jSAVE THE DEVADR 


MOV 


DLRDBR,R2 


J SAVE REGADR 


MOV 


STMPl,R3 


jGET CONTENTS OF ERROR RDBR 


JSR 


PC,SUERR1 


J GO SETUP ERROR INFO 


MOV 


#10$,8ESCAPE 


|G0 TO 103 AFTER ERROR PRINT 


ERROR+5 




jREPORT SOFT ERROR C PARITY, FRAMING, OR OVERRUN 


INC 


RTRY 


iCOUNT ONE TRY 


CMP 


#3, RTRY 


fTRIED THREE TIMES 
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;BR IF HOT 



MAINDEC-ll-OZDLC-B 



DZDLCB 


Pll 06-MAy-77 


10104 


1289 
1290 








1291 








1292 


006036 


000004 




1293 


006040 


012767 


000001 


1294 


006046 


004767 


006134 


1295 


006052 


005067 


173352 


1296 


006056 


012767 


014460 


1297 


006064 


004767 


006144 


1298 


006070 


005767 


173326 


1299 


006074 


001042 




1300 


006o76 


005767 


173322 


1301 


006102 


001056 




1302 


006104 


005767 


173316 


1303 


006110 


001071 




1304 


006U2 


022767 


022260 


1305 


006120 


001004 




1306 


006122 


004767 


006400 


1307 


006126 


000167 


002012 


1308 


006132 


005367 


173302 


1309 


006136 


001354 




1310 


006140 


005367 


173276 


1311 


006144 


001351 




1312 


006146 


042777 


000100 


1313 


006154 


042777 


000104 


1314 


006162 


104401 


016565 


1315 


006166 


012767 


006176 


1316 


006174 


104000 




1317 


006176 


000167 


001742 


1318 


006202 


016701 


173202 


1319 


006206 


016702 


173202 


1320 


006212 


011203 




1321 


006214 


012704 


000204 


1322 


006220 


004767 


005654 


1323 


006224 


012767 


006234 


1324 


006232 


104002 




1325 


006234 


000167 


001704 


1326 


006240 


016701 


173144 


1327 


006244 


010102 




1328 


006246 


011203 




1329 


006250 


012704 


000200 


1330 


006254 


004767 


005620 


1331 


006260 


012767 


006270 


1332 


006266 


104002 




1333 


006270 


000167 


001650 


1334 


006274 


016701 


173110 


1335 


006300 


016702 


173106 


1336 


006304 


016703 


172674 


1337 


006310 


004767 


005564 


1338 


006314 


012767 


006324 


1339 


006322 


104005 




1340 


006324 


005267 


173100 


1341 


006330 


022767 


000003 


1342 


006336 


001247 




1343 


006340 


000167 


001600 


1344 









MACYll 30(1046) 12-JUL-77 10|02 PAGE 28 

T25 TEST TO TURN AROUND WORST CASE PATTERN 



173174 
173352 



; ) «««««»«««»»«« 

l*TEST 25 
I }#»#««**»»»#»# 
TST25I 



»###»#####♦«#####«##*###♦***#»♦#»»##»#*»##♦«#*»♦♦♦ 

TEST TO TURN AROUND WORST CASE PATTERN 
#*######*##»##♦♦♦#♦#♦#♦♦»#»»♦«»#♦»»#*#«♦♦»♦#»*»#♦♦ 



173234 
173232 



173050 



4St 

581 



6$i 
781 



881 
981 



172722 
173072 



SCOPE 






MOV 


#1,STIMES 


;^D0 1 ITERATION 


JSR 


PCSUVEC 


;G0 SET UP VECTORS 


CLP 


RTRY 


j^NITIALIZE RETRY FLAG 


MOV 


»LD0UT4#LD0UT 


;SET POINTER TO LOAD ROUTINE 


JSR 


PC, PRIME 


;G0 SET UP BUFFERS AND DEVICE 


TST 


XFLGO 


;ANY HARD XMIT ERRORS ?? 


BNE 


58 


;BR IF YES 


TST 


RFLGO 


;ANY HARD RECEIVER KRROR ?? 


BNE 


78 


;BP IF YES 


TST 


RFLGl 


fhUY SOFT RECEIVER F.RRO«S ?? 


BNE 


98 


;BR IF YES 


CMP 


#BUFEND, IPTR 


; RECEIVED 256, BYTES ?? 


BNE 


38 


fBR IF NOT 


JSR 


PCCHKDAT 


;G0 CHECK THE DATA BUFFERS 


JMP 


SEOP 


jGO TO NEXT TEST 


DEC 


TIMRI 


;DEC TIMEOUT COUNTER 1 


BNE 


28 


jBR IF NO TIMEOUT 


DEC 


TIMR2 


;DEC TIMEOUT COUNTER 2 


BNE 


28 


" ;BP IF NO TIMEOUT 


BIC 


#lOO,0DliRCSR 


?TURN OFF THE I^TRS, 


BIC 


#104,9DLXCSR 




TYPE 


rXMSG4 


;G0 TYPE TIMEOUT MfcsSAGE 


MOV 


«48#SESCAPE 


jGO TO 48 AFTER ERROR PRINT 


ERROR 




yPRiNT ERROR PC 


JMP 


8E0P 


;G0 TO NEXT TEST 


MOV 


DLRCSRfRl 


;PUT 0EVADR IN Rl 


MOV 


DLXCSR,R2 


;PUT REGAUR IN R2 


MOV 


(P2)#R3 


yGET THE WAS DATA 


MOV 


#204, R4 


;PUT S/B DATA IN P4 


JSR 


PC,SUERR1 


yGO SET UP ERROR INFO 


MOV 


#68»8ESCAPE 


;G0 TO 68 AFTER PRINTING ERROR 


ERROR+2 




jTRANSMITTER FALSE INTERRUPT 


JMP 


8E0P 


;G0 TO NEXT TEST 


MOV 


DLRCSR,R1 


jSAVE THE DEVADR 


MOV 


R1,P2 


ySAVE THE REGADR 


HOV 


CR2)»R3 
#200, R4 


;GET THE WAS DATA 


MOV 


;RESULT S/B a 200 


JSR 


PCSUERRl 


jGO SET UP ERROR INFO 


MOV 


#88»8ESCAPE 


;G0 TO 88 AFTER ERROR PRINT 


ERROB+2 




^RECEIVER FALSE I"^TFRRUPT 


JMP 


8E0P 


•GO TO NEXT TEST 


MOV 


DLRCSRrRl 


fSAVE THE DEVADR 


MOV 


DLRDBP,R2 


J SAVE REGADR 


MOV 


8TMP1,R3 


jGET CONTENTS OF ERROR RDBR 


JSR 


PCSUERRl 


|G0 SETUP ERROR INFO 


MOV 


«108,8ESCAPE 


jGO TO 108 AFTER ERROR PRINT 


ERROR-t-5 




^REPORT SOFT ERROR ( PARITY, FRAMING, OR OVERRUN 


INC 


RTRY 


jCOUNT ONE TRY 


CMP 


#3,PTPY 


? TRIED THREE TIMES 


BNE 


18 


jBR IF NOT 


JMP 


SEOP 


;G0 TO END OF PASS ROUTINE 



■ 
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1 145 








1346 








1347 








1348 








1349 








I 350 








1 35 1 








1352 








1353 








1354 


6 3 4 4 


012706 


001 100 


1 355 


006350 


012737 


01 3066 


1 356 


006356 


012737 


000340 


1 357 


006364 


01 2737 


010746 


1358 


006372 


01 2737 


000340 


I 359 


006400 


104401 


016700 


1 360 








1 36 1 


006404 


104401 


020322 


1362 








1 36 3 








1 364 


006410 


1 0441 




1365 








1 366 








1367 


006412 


012602 




1 368 


006414 


020227 


176176 


1 369 


006420 


101 065 




1 370 


006422 


020227 


175616 


1371 


006426 ' 


103462 




137 2 


006430 


132702 


000001 


1373 








1374 


006434 


001 057 




1375 








I 376 


006436 


010203 




1377 


006440 


I 42703 


000370 


1378 








1379 


006444 


1 22703 


000006 


1390 








1381 


006450 


001051 




1 382 


006452 


010267 


172524 


138 3 








1 384 








1385 








1386 


006456 


016746 


171 322 


1 387 


006462 


012767 


006474 


I 388 


006470 


005712 




1389 








1390 








1 39J 


006472 


000412 




1392 


006474 


004767 


005460 


1393 


006500 


012767 


006510 


1 394 


006^06 


104006 




13^5 


006510 


022626 




1 39b 


OO65I2 


012667 


171266 


1397 


006516 


000426 




139« 


006520 


012667 


171260 


1 399 








1400 









THIS IS PROGRAM #2 

THE FOLLOWING USER UTILITY PROGRAM WILL ALLOW 1 

A) SELECTION OF A TRANSMITTER DATA BUFFER 

SELECTION OF A CHARACTER FOR CONTINUOUS TRANSFER 
SELECTION OF AN EXPIRATION TIME IN MILLISECONDS 
BETWEEN EACH TRANSMITTER DATA BUFFER CHARACTER TRANSFER 
A TIGHT SCOPE LOOP LOCK ON A SPECIFIC CHARACTER 



B) 
C) 



D) 



PRG2I 



000034 
000036 
000030 
000032 



MOV 
MOV 
MOV 
MOV 
MOV 
TYPE 



»STACK»SP 



PRG2AI TYPE 



PDOCT 



#8TRAP,0#TRAPVEC 
#340,?#TRAPVECf 2 
»8ERR0R,9)»EMTVEC 
#34O,0#EMTVEC+2 
,rR0G2M 

,LINTAD 



J INITIALIZE THE STACK POINTER 



iTRAP VECTOR FOR TRAP CALLS 
> LEVEL 7 

jEMT VECTOR FOR ERROR ROUTINE 
f LEVEL 7 
! INDICATE THAT USER SELECTED 
; PROGRAM #2 

;ASK USER FOR THE TRANSMITTER 
?DATA BUFFER ADDRESS OF THE DEVICE 
jHE WISHES TO TEST 
; ACCEPT THE ANSWER TYPED BY USER 
;ArtD STORE ON TOP OF STACK 
jCHECK TO SEE IF THE USER RESPONSE vMAS WITHIN LIMITS 
MOV (SP)+,R2 jGET THE ANSWER TYPED 

CMP P2, #176176 ;IS THE NUMBER TOO HIGH? 

BHI REDOl fIF YES - GO TO RETRY SITUATION 

CMP R2##175616 ;IS THE NUMBER TOO LOW? 

BLO REDOl ;IF VES - GO TO RETRY SITUATION 

BITB #flIT0»R2 jNUMBER IS IN RANGE BUT IS IT 

;0N AN EVEN BOUNDARY? 
BNE REDOl ;IF NOT GO TO RETRY SITUATION 

;CHECK TO SEE IF USER RESPONSE WAS TRULY A XHIT BUFFER REGISTER 



;GET THE USER RFSPOf-'SF 
;MASK OFF LOrtER BYTt EXCEPT FOR 
;LEAST SIGNIFICANT DIGIT 
;WAS THE LEAST SIGNIFICANT DIGIT 
;USER RESPONSE EQUAL TO A SIX? 
•BRANCH IF NOT 
;THE TRANSMITTER ADDRESS 
; TYPED IS OK - STORE FOR 
; FUTURE USE 

;NOW CHECK TO MAKE SURE THE DEVICE IS PRESENT 



MOV 
BICB 



CMPB 



BNE 
MOV 



R2,R3 
#370, R3 



#6,R3 



REDOl 
R2,$TMP0 



MOV ERRVEC#-(SP) ;SAVE THE TIMEOUT VECTOR 

MOV #2S#ERRVEC jSET UP TIMEOUT SERVICE ADDRESS 

TST CR2) lIF PRESEK'T wE WILL EXECUTE THE 

;N£XT INSTRUCTIOlM - IF NOT 
;WE GO TO 2SI 
;BRANCH IF PRESENT 
;G0 SET UP FOR ERROR INFORMATION 
; POINT OF RETURN AFTER f-RROR REPORT 
;XOBR REFERENCE CAUSED TIMEOUT 
jCLEAN STACK FROM TIMEOUT 
; RESTORE TIMEOUT VECTOR 
;G0 TO RETRY SITUATION 
;DEVICE REGISTEH IS PRESENT" 
; RESTORE TIMEOUT VECTOR 
>WE ARE NOW READY FOR THE CHARACTER TO BE TRANSMITTED, AND THE 



2s: 



3S 



4$J 



JSR 

MOV 

ERROR 

CMP 

MOV 

BP 

MOV 



4S 

PC,SUERT2 
»3$#$ESCAPE 
♦ 6 

(Sp) + ,(SP)'»- 
(SP)+,ERRVEC 

REDOl 

(SP)+,ERPVEC 
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jDELAY TIME (IN MILLISECONDS) THAT IS TO TRANSPIRE BETWEEN 
jSUCCESSlVE CHARACTER TRANSFERS 



1401 








J 402 








1403 


006524 


104401 


020403 


1404 








1 405 


006530 


104410 




1406 








1407 


006532 


012667 


172446 


1408 








1409 








1410 


006536 


104401 


020511 


1411 








1412 








1413 


006542 


104410 




1414 








1415 


006544 


012667 


172436 


1416 


006550 


116767 


172432 


1417 








1418 


006556 


116777 


172422 


1419 








1420 


006564 


004767 


004750 



PRG28S TYPE 
RDOCT 



jNOTEl 



000012 l$l 



,SELCAR ;ASK USER FOR THE CHARACTER HE 

yWlSHES TO TRANSFER 
J ACCEPT THE ANSWER TYPED BY 
J USER AND STORE ON TOP OF STACK 
MOV (SP)+,$TMP1 ;GET THE ANSWER TYPED 

THE USER RESPONSE FOR THE CHARACTER WAS TO BE THE 
OCTAL ASCII EQUIVALENT OF IriE CHARACTER E.G. AalOl 



TYPE 



MOV 
MOVB 



,SELDLY 



(SP)+,STMP2 
STMP2»2$ 



STMPl,eSTMPO 



;ASK THE USER FOR THE DELAY 

;IN MSEC (OCTAL NO.) BETWEEN 

{CHARACTER TRANSFERS 

jACCEPT THE ANSWER TYPED BY 

;USER AND STORE ON TOP OF STACK 

;GET THE ANSWER TYPED 

jSET THE DELAY COUNT ARGUMENT 

;FOR TIMER ROUTINE 

yLOAD THE TRANSMITTER DATA 

{BUFFER WITH THE CHARACTER 

;G0 OFF TO WAIT THE SPECIFIED 
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1421 








1422 








1423 


006570 


000000 




1424 


006572 


000766 




1425 


006574 


104401 


001232 


1426 


006600 


000167 


177600 


1427 








1428 








142<5 








1430 








1431 








1432 








1433 








1434 








1435 








1436 








1437 


006604 


012706 


001100 


1438 


006610 


012737 


013066 


1439 


006616 


012737 


000340 


1440 


006624 


012737 


010746 


1441 


006632 


012737 


000340 


1442 


006640 


104401 


016744 


1443 








1444 


006644 


104401 


020322 


1445 








1446 








1447 


006650 


104410 




1448 








1449 








1450 


006652 


012602 




1451 


006654 


020227 


176176 


1452 


006660 


101071 




1 453 


006662 


020227 


175616 


1454 


006666 


103466 




1455 


006670 


132702 


000001 


1456 








1457 


006674 


001063 




1458 








1459 


006676 


010203 




1460 


006700 


142703 


000370 


1461 








1462 


006704 


122703 


000006 


1463 








1464 


006710 


001055 




1465 


006712 


010267 


172264 


1466 








1467 








1468 


006716 


016746 


171062 


1469 


006722 


012767 


006734 


1470 


006730 


005712 




1471 








1472 








1473 


006732 


000412 




1474 


006734 


004767 


005220 


1475 


006740 


012767 


006750 


1476 


006746 


104006 





2$t 

PEDOl I 



I NO, OF MSEC, BEFORt; ISSUING 
;ANOTHEP CHARACTER 
jTHIS IS WHERE THE DELAY COUNT RESIDES 

IS jGO BACK TO ISSUE ANOTHER CHARACTER 

,$QUES jTVPE A QUESTION MAPK(?) 

PRG2A fPEITERATE THE XUBR QUESTION TO USER 

THIS IS PROGRAM #3 

THE FOLLOWING USER UTILITY PROGRAM WILL ALLOWj 

A) SELECTION or A TRANSMITTER DATA BUFFER 

SELECTION OF A CHARACTER FOR CONTINUOUS TRANSFER 
IN MAINTENANCE MODE 

SELECTION OF AN EXPIRATION TIME IN MILLISECONDS 
BETWEEN EACH TRANSMITTER DATA BUFFER CHfiRACTER TRANSFER 
A TIGHT SCOPE LOOP LOCK ON 6 SPECIFIC CHARACTER 



.WORD 
BR 

TYPE 
JMP 



B) 



C) 
D) 



000034 
000036 
000030 
000032 



172276 



PRG3I MOV 
MOV 
MOV 
MOV 
MOV 
TYPE 

PRG3AJ TYPE 



RDOCT 

jCHECK TO SEE 
MOV 
CMP 
BHI 
CMP 
BLO 
BITB 

BNE 

jCHECK TO SEE 
MOV 
BICB 

CMPB 

BNE 
MOV 

|NOW CHECK TO 
MOV 
MOV 
TST 



BR 
JSP 
MOV 
ERROR 



#STACK,SP {INITIALIZE THE STACK POINTER 

»STPAP,0«TRAPVEC ;TRAP VECTOR FOR TRAP CALLS 

#340,(a#TRAPVEC + 2 ;LEVEL 7 

#SEFROB,&»EMTVEC |EMT VECTOR FOR ERROR ROUTINE 

#340,fi#EMTVEC + 2 rLEVEL 7 

,PB0G3M ; INDICATE THAT USER SELECTED 

;PROGRAM »3 

,LINTAD jASK USER FOP THE TRANSMITTER DATA 

jBUFFER ADDRESS OF THE DEVICF 
;HE WISHES TO TEST 
;ACCEPT THE AMSWER TYPED BY 
jUSER AND STORE ON TOP OF STACK 
IF USER RESPONSE WAS WITHIN LIMITS 

(SP)+,R2 ;GET THE ANSWER TYPED 

H2, #176176 jIS THE NUMBER TOO HIGH? 

RED02 tJf YES - GO TO RETRY SITUATION 

B2»#175616 ;IS THE NUMBER TOO LOW? 

RED02 ',1F YES - GO TO RETRY SITUATION 

#81T0,R2 ;NUMBER IS IN RANGE BUT IS IT 

•ON AN EVEN BOU/JDAPY? 

REDa2 ;IF NOT - GO TO REIRY SITUATION 

IF USER RESPONSE WAS TRHLY A XDBR DBR ADDRESS 

R2,R3 ;GET THE USER RESPO-'^^SF 

#370, R3 ;MASK OFF LOWER BYTE EXCEPT FOR 

;LEAST SIGMFIC5NT DIGIT 

#6,R3 ;WAS THE LEAST SIGNIFICANT DIGIT Of TH 

jUSER RESPONSE EQUAL TO A TWO? 

RED02 jBRANCH IF NOT 

R2,STMP0 ;THE TRANSMITTER ADDRESS TYPED IS 

;0k - STORE FOR FUTURE USE 
MAKE SURE THE DEVICE IS PRESENT 



ERRVEC»-(SP) 

#2SrEPPVEC 

(R2) 



4S 

PC,SUERT2 
»38»$ESCAPE 



;SAVE THE TIMEOUT VECTOR 

;SET UP TIMEOUT SERVICE ADDRESS 

;IF PRESENI WE WILL EXECUTE THE 

;NEXT INSTRUCTION - IF MOT WE 

•GO TO 2S! 

•BRANCH IF PRESENT 

;GU SET UP FOR ERROR INFORMATION 

; POINT OF RETURN AFTER FRROR REPORT 

jXDBR REFERENCE CAUSED Tli^EOUT 
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1477 


006750 


1478 


006752 


1479 


006756 


1480 


006760 


1481 




1482 




1483 




1484 




1485 


006764 


1486 




1487 


006770 


1488 




1489 


006772 


1490 




1491 




1492 


006776 


1493 




1494 




1495 


007002 


1496 




1497 


007004 


1498 


007010 


1499 




1500 




1501 


007014 


1502 


007020 


1503 




1504 


007026 


1505 




1506 


007034 


1507 




1508 




1509 


007040 


1510 


007042 


1511 


007044 


1512 


007050 


I5f3 




1514 




1515 




1516 




1517 




1518 




1519 




1520 




1521 




1522 


007054 


1523 


007060 


1524 


007066 


1525 


007074 


1526 


007102 


1527 


007110 


1528 




1529 


007114 


1530 




1531 




1532 


007120 



171026 
171020 

020403 

172206 
020511 



172176 
000002 



000004 
172162 



172152 
004500 



001252 
177570 



012706 
012737 
012737 
012737 
012737 
104401 



OOllOO 
013066 
000340 
010746 
000340 
017010 



104401 020322 



3SI CMP (SP)+,(SP)+ jCLEAN STACK FROM TIMEOUT 

MOV (SP) + ,ERRVEC jRESTORE TliviEOUT VECTOR • 

BP PED02 ;G0 TO RETRY SITUATION 

4St MOV (SP)+,ERRVEC jDEVICE REGISTER IS PRESENT! 

; RESTORE TIMEOUT VECTOR 

I WE ARE NOW READY FOR THE CHAPJ^CTFR TO BE TRANSMITTED, AND THE 

»DELAY TIME (IN MILLISECONDS) THAT IS TO TRANSPIRE i^ETWEEN SUCCESSIVE 

jCHARACTER TRANSFERS 



PRG3Bf TYPE 



,SELCAR 



(SP)+,$TMP1 



ASK USER FOR THE CHARACTER 
HE WISHES TO TRANSFER 
ACCEPT THE ANSWER TYPED BY USER 
AND STORE ON TOp OF STACK 
GET THE ANSWER TYPED 



000012 
172146 



THE USER RESPONSE FOR THE CHARACTER wAS TO BE THE 
OCTAL ASCII EQUIVALENT OF THE CHARACTER E.G. B=102 
TYPE ,SELDLY ;ASK THE USER FOR THE DELAY 

;IN MSEC (OCTAL NO,) BETWEEN 
jCHARACTER TRANSFERS 
RDOCT jACCEPT THE ANSWER JYPED BY 

jUSER AND STORE ON TOP OF STACK 
;GET THE ANSWER TYPED 
;GET THE CORRESPOMDI nG XCSR 
jADDRESS FOR TRANSMITTER UNDER- 
;G0ING TEST 

;SET MAINTENANCE BIX IN XCSR 
;SET THE DELAY COUNT ARGUMENT 
;FOR TIMER ROUTINE 

;LOAO THE TRANSMITTER DATA BUFFER 
jWITH THE CHARACTER 
;G0 OFF TO WAIT THE SPECIFIED 
;N0, OF MSEC, BEFORE ISSUING 
•ANOTHER CHARACTER 

;THIS IS WHERE THE DELAY COUNT RESIDES 
;G0 BACK TO ISSUE ANOTHER CHARACTER 
;TYPE A QUESTION MARK(?) 
jREITERATE THE XDPR QUESTION TO 
jUSER 



MOV 
SUB 



BIS 
MOVB 



.WORD 
BR 

TYPE 
JMP 



(SP)+,STMP2 
#2,P2 



#BIT2, (P2) 
$TMP2f 2$ 



$TMP1,9$TMP0 
PC, DELAY 





1$ 

f SQUES 
PPG3A 



THIS IS PROGRAM 04 

THE FOLLOWING USER UTILITY PROGRAM WILL ALLOWi 

A) SELECTION OF A TRANSMITTER DATA BUFFER 

B) SELECTION OF A SINGLE CHARACTER TO BE SENT, RECEIVED 
AND CHECKED WITH MAINTENANCE BIT SET 



000034 
000036 
000030 
000032 



MOV 


#STACK,SP 


^INITIALIZE THE STACK POINTER 




MOV 


«6TPAP,P#TRAPVEC 


fTRAP VECTOR FOR TRAP 


CALLS 


MOV 


#340,e«TRAPVEC+2 


1 LEVEL 7 




MOV 


»8EBR0R,i#EMTVEC 


|EMT VECTOR FOR ERROR 


ROUTINE 


MOV 


#340,@»EMTVEC4-2 


ILEVEL 7 




TYPE 


,PR0G4M 


; INDICATE THAT USER SELECTED 








rPROGRAM #4 




TYPE 


rLlNTAD 


;ASK USER FOR THE TRANSMITTER 





jDATA BUFFER ADDRESS OF THE 
jDEVICE HE WISHES TO TEST 
jACCEPT THE ANSWER TYPED BY 
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1533 






1534 






1535 


007122 


012602 


1536 


007 1 2 4 


020227 


1537 


007 1 30 


lOl 1 36 


1538 


0071 32 


020227 


1539 


007 1 36 


1 03533 


1540 


007140 


1 32702 


1541 






1542 


007144 


001130 


154 3 






1544 


007146 


010203 


1 545 


7 1 5 


142703 


15 46 






15 47 


00715 4 


122703 


1548 






1549 


7 1 6 


Ool 122 


1550 


007 1 62 


0! 0267 


1551 






1552 






1553 


7 1 6 6 


016746 


1554 


007 1 72 


01 2767 


1555 


007200 


00571 2 


1556 






1557 






1558 


007202 


000412 


1559 


007 204 


0(t4767 


1560 


0*^72 1 


01 2767 


1561 


007 216 


1 04006 


1 562 


007220 


022626 


1 563 


f » 7 2 2 2 


012667 


156 4 




000477 


1 565 


On7230 


012667 








156 7 


007534 


104 401 


156B 






1569 






15 70 






1571 


007 240 


104410 


157 2 






1573 


007242 


1 2667 


157 4 






1575 


007246 


104401 


1576 






1577 


007252 


104410 


1578 






1579 


007254 


012667 


1580 






1581 






1582 






1583 


007260 


104401 


1584 






1585 


007264 


104411 


1586 






1587 


007266 


012600 


1588 


007270 


020027 



176176 
175616 
000001 

000370 
000006 



170612 
007204 



QO4750 
0U7220 



170556 
170550 
020604 



jUSER AND STORE ON TOP OF STACK 
f CHECK TO SEE IF THE USER RESPONSE ^AS WITHIN LIMITS 
MOV {SP)+,R2 ;GET THE ANSWER TYPED 

CMP R2»#i76176 ;IS THE NUMBER TOO HIGH? 

BHI RED03 ;IF YES - GO TO RETRY SITUATION 

CMP R2, #175616 ;IS THE NUMBER TOO LOW? 

PLO RED03 fIF YES - GO TO RETRY SITUATION 

81T8 »BIT0,R2 jNUMBER IS IN RANGE BUT IS IT 

;0N AN EVEN BOUNDARY? 
BNE RED03 ; IF NO - GO TO RETRY SITUATION 

>CHECK TO SEE IF USER RESPONSE WAS TRULY A XMIT BUFFER REGISTER 



MOV 

eicp 



R2,R3 
#370, R3 



2$I 



3SI 



4$ 



;GET THE USER RESpQNSE 
jMASK OFF LOWER BYTF EXCEPT FOR 
;LEAST SIGNIFICANT DIGIT 
;WAS THE LEAST SIGNIFICANT DIGIT OF 
jUSER RESPONSE EQUAL TO A SIX? 
jBRANCH IF NOT 
THE TRANSMITTER ADDRESS TYPED 
IS OK - STORE FOP FUTURE USE 
jNOW CHECK, TO MAKE SURE THE DEVICE IS PRESENT 

SAVE THE TIMEOUT VECTOR 
SEX UP TIMEOUT SERVICE ADDRESS 
IF PRESENT WILL EXECUTE THE 
NEXT INSTRUCTION - IF NOT WE 
GO TO 2$I 
BRANCH IF PRESE^T 
GO SFT UP FOR ERROR INFORMATION 
POINT OF PETUR-J AFTER ERROR REPORT 
XDBR REFERENCE CAUSED TIMEOUT 
CLEAN STACK FROM TIMEOUT 
RESTORE TIMEOUT VECTOR 
GO TO RETRY SITUATION 
DEVICE REGISTER IS PRESENTI 
RESTORE TIMEOUT VECTOR 
ASK THE USFR IF HE DESIRES SOME 
RAND0«1 HO, OF MSEC. WAIT TIME 
BEFOHE CHECKING FOP XCSR DONE 
FLAG 

ACCEPT THE ANS'-^EH TYPED BY USER 
hND STORE ON TOP OF STACK 
(SP)-»-,$TMP2 ;GET THE ANSWER TYPED 

jWE ARE NOW READY FOR THE CHARACIEH TO BE TRANSMITTED 
PRG4BI TYPE ,SELCAR ;^SK USFR FOR THE CHARACTER HE 

; WISHES TO TRANSFER 
PDOCT ;ACCEPT THE ANSWER TYPED RY USER 

;AND STORE ON TOP OF STACK 
MOV (SP)+#$TMPl jGET THE ANSwER TiPED 

jNOTEl THE USER RESPONSE FOR THE CHARACTER WAS TO bE THE OCTAL 
t ASCII EQUIVALENT OF THE CHARACTER E.G. C=103 

I 

PRG4C! TYPE# LENGTH jASK USER FOR THE CHARACTER LENGTH 

;FOR WHICH HIS DEVICE IS SET 
RDDEC ; ACCEPT THE ANSWER TYPED BY USER 

jCHECK TO SEE IF USER RESPONSE WAS WITHIN LIMITS 

HOV (SP)+,P0 ;GET THE ANSkER TYPED 

CMP R0,I8, jIS THE NUMBER TOO HIGH? 



CMPB 



BNE 
MOV 



MOV 
MOV 
TST 



BP 

JSR 

MOV 

ERROR 

CMP 

MOV 

BR 

MOV 

TYPE 



RDOCT 



MOV 



»6,R3 



RED03 
R2,STMP0 



ERRVEC,-(SP) 

#2S»ERRVEC 

(R2) 



4$ 

PC,SUERT2 
«38,SESCAPE 
+ 6 

(SP)+, (SP)+ 

(SP)+,ERRVEC 

RED03 

(SP)+,ERRVEC 
,RSTALL 
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1589 


007274 


101060 








BHI 


RED03A ?IF YES - GO TO RETRY SITUATION 


1590 


007?76 


020027 


000005 






CMP 


RO, #5, 


IS THE NUMBER TOO LOW? 


1591 


007302 


103455 








BLO 


RED03A 


IF YES - GO TO RETRY SITUATION 


1592 


007304 


010067 


171724 






MOV 


R0,STMPI5 


THE VALUE TYPED IS OK 


1593 
















STORE FOR FUTURE USE 


1594 


007310 


016767 


171666 


171672 




MOV 


$TMP0,STMP3 


GET THE XDBR ADDRESS 


1595 


007316 


162767 


000002 


171664 




SUB 


#2,STMP3 


FORM THE XCSR ADDRESS 


1596 


007324 


005767 


1716S^ 




ISl 


TST 


$TMP2 


DO wE RANDOM STALL? 


1597 


007330 


001402 








BEQ 


2$ 


BRANCH IF IT WASN'T DESIRED 


1598 


007332 


004767 


004246 






JSR 


PC, STALL 


GO STALL RANDOM VALUE OF MSEC, 


1599 


007336 


004767 


004352 




2$: 


JSR 


PCTIMETX 


GO WAIT FOR TRANSMITTER DONE 


1600 
















BIT TO SET 


1601 


007342 


104401 


017120 






TYPE 


,XDB 


TYPE TRANSMITTER DONE BIT MESSAGE 


1602 


007346 


104000 








ERROR 


+ 


XCSR DONE BIT NEVER SET 


1603 


007350 


052777 


000004 


171632 




BIS 


#BIT2,?STMP3 


SET THE MAINTENANCE BIT IN THE 


1604 
















TRANSMITTER CONTROL STATUS REGISTER 


1605 


007356 


016777 


171622 


171616 




MOV 


$TMPl,@STMpO 


LOAD TRANSMITTER DATA BUFFER 


1606 
















WITH SELECTED CHARACTER 


1607 


007364 


004767 


004306 






JSR 


PCTIMERX 


GO WAIT FOR RECEIVER DONE BIT 


1608 
















TO SET 


1609 


007370 


104401 


017167 






TYPE 


,RDB 


TYPE RECEIVER DONE BIT MESSAGE 


1610 


007374 


104000 








ERROR 


+ 


RCSR DONE BIT NEVER SET 


161 1 


007376 


016767 


171606 


171606 




MOV 


STMP3,8TMP4 


GET THE TRANSMITTER CONTROL 


1612 
















STATUS REGISTER ADDRESS 


1613 


007404 


162767 


00000*2 


171600 




SUB 


#2,$TMP4 


FORM THE RECEIVER DATA BUFFER 


1614 
















ADDRESS 


1615 


007412 


017767 


171574 


171574 




MOV 


©8TMP4,STMP5 


STORE THE CHARACTER FROM THE 


1616 
















RECEIVER BUFFER + PEST OF CONTENTS 


1617 


007420 


004767 


004326 






JSP 


PCDATCHK 


GO TO COMPARE EXPECTED £. RECEIVED 


1618 
















DATA 


1619 


007424 


000737 








BR 


1$ 


GO BACK TO ISSUE ANOTHER CHARACTER 


1620 


007426 


104401 


001252 




RED03I 


TYPE 


rSQUES 


TYPE A QUESTION MARK(?) 


1621 


007432 


000167 


177456 






JMP 


PRG4A 


REITERATE THE XDBR QUESTION TO USER 


1622 


007436 


104401 


001252 




RED03At 


TYPE, 


SOUES 


TYPE '7' INDICATING USER TYPED 


1623 
















SOMETHING WRONG FOR CHARACTER LENGTH 


1624 


007442 


000167 


177612 






JMP 


PRG4C 


GO BACK TO REISSUE QUESTION 


1625 


















1626 










ITHIS IS PROGRAM «5 




1627 










|THE FOLLOWING 


USER UTILITY PROGRAM WILL ALLOW USER PARAMETERS 


1628 










|FQR RUNNING A 


BINARY COUNT IN MAINTENANCE MODE 


1629 










1 








1630 


















1631 


007446 


012706 


001 100 




PRG5I 


MOV 


•STACK, SP 


INITIALIZE THE STACK POINTER 


1632 


007452 


012737 


013066 


000034 




MOV 


#STRAP,i#TRAPVEC 


fTRAP VECTOR FOP TRAP CALLS 


1633 


007460 


012737 


000340 


000036 




MOV 


#340,@#TRAPVEC+2 


1 LEVEL 7 


1634 


007466 


012737 


010746 


000030 




MOV 


»$ERROR,i«EMTVEC 


lEMT VECTOR FOR ERROR ROUTINE 


1635 


007474 


012737 


000340 


000032 




MOV 


#340,e«EMTVEC+2 


1 LEVEL 7 


1636 


007502 


104401 


017054 






TYPE 


,PR0G5M 


INDICATE THAT USER SELECTED 


1637 














yPROGRAM #5 


1638 


007506 


104401 


020322 




PRG5AI 


TYPE 


,LINTAD 


•ASK USER FOR THE TRANSMITTER DATA 


1639 














jBUFFER ADDRESS OF THE DEVICE 


1640 














jHE WISHES TO TEST 


1641 


007512 


104410 








RDOCT 


^ACCEPT THE ANSWER TYPED BY USER 


1642 
















•AND STORE ON TOP OF STACK 


1643 










jCHECK 


TO SEE 


IF THE USER RESPONSE WAS WITHIN LIMITS 


1644 


007514 


012602 








MOV 


(SP)*,R2 


jGET THE ANSWER TYPED 
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1645 


0075i6 


020227 


176176 






CMP 


R2, #176176 


;IS THE NUMBER TOO HIGH? 


1646 


007522 


101152 








BHI 


RED04 


;IF YES » GO TO RETRY SITUATION 


1647 


007524 


020227 


175616 






CMP 


R2, #175616 


;IS THE NUMBER TOO LOW? 


1648 


007530 


103547 








BLQ 


RED04 


J IF YES - GO TO RETRY SITUATION 


1649 


007532 


132702 


000001 






BITB 


#BIT0,R2 


jNUMfrER IS IN RANGE BUT IS IT 


1650 














;0N AN EVEN BOUNDARY? 


1651 


007536 


001 1 44 








BNE 


RED04 


;IF NOT - GO TO RETRY SITUATION 


1652 








fCHECK 


TO SEE 


IF USER RESPONSE 


WAS TRULY A XMIT BUFFfep REGISTER 


1653 


007540 


010203 








MOV 


R2,R3 


;G£T THE USER RESPONSE 


1654 


007542 


142703 


000370 






BICB 


#370, P3 JMASK OFF LOWER BYTE EXCEPT FOR 


1655 
















jLEAST SIGNIFICANT DIGIT 


1656 


007546 


122703 


000006 






CMPB 


#6,R3 


;WA5 THE LEAST SIGNIFICANT DIGIT OF 


1657 
















fUSER RESPONSE EQUAL TO A SIX? 


1658 


007552 


001136 








BNE 


RED04 


jBRANCH IF NOT 


1659 


007554 


010267 


171422 






MOV 


R2,$TMP0 


;THE TRANMITTER ADDRESS TYPED 


1660 
















;IS OK - STORE FOR FUTURE USE 


1661 










iNOW CHECK TO 


MAKE SURE THE DEVICE IS PR'&SENT 


1662 


007560 


016746 


170220 






MOV 


ERRVEC,-(SP) 


jSAVE THE TIMOUT VECTOR 


1663 


007564 


012767 


007576 


170212 




MOV 


#2S»ERRVEC 


jSET UP TIMEOUT SERVICE ADDRESS 


1664 


007572 


005712 








TST 


(R2) 


J IF PRESENT WC ULh EXECUTE THE 


1665 














jNEXT INSTRUCTION - IF ?iOT WE 


1666 
















; GO TO 2^1 


1667 


007574 


000412 








BR 


4$ 


jBR/iNCh IF PRESENT 


1668 


007576 


004767 


004356 




2Sl 


JSR 


PC,SUERT2 


;G0 SETUP FOR ERROR INFORMATION 


1669 


007602 


012767 


007612 


171434 




MOV 


(»3S,$ESCAPE 


jPUINT Of RETURN AFTER ERROR REPORT 


1670 


0076i0 


104006 








ERROR 


+6 


;XDBR REFERENCE CAUSED TIMEOUT 


1671 


007612 


022626 






3$S 


CMP 


(S'P) + , (SP) + 


J CLEAN STACK FROM TIMEOUT 


1672 


007614 


012667 


170164 






MOV 


(SP)+,ERRVEC 


{RESTORE TIMEOUT VECTOR 


1673 


007620 


000513 








BR 


PED04 


jGO TO RETRY SITUATION 


1674 


007622 


012667 


170156 




4$| 


MOV 


(SP)+,EPRVEC 


;PeVICE REGISTER IS PRESENTi 


1675 














;km THE USER IF HE DESIRES SOME 


1676 
















;Rft*)DOM NO, OF MSEC, wAlT TIME 


1677 
















f&fFORe CHECKING XCSH DONE FLAG 


1678 


007626 


104401 


017233 




PRG5CI 


TYPE, 


LENGTH )ASK UBEh FOR im CHARACTER LENGTH 


1679 
















;FOR WHICH HIS DEVICE IS SET 


1680 


007632 


104411 








RDDEC 




jmCEPt TH-E ANSWER TYPED USER 


1681 








fCHECK 


TO SEE 


IF USER RESPONSE 


WAS WITHIN LIMITS 


1682 


007634 


012600 








MOV 


(SP)+,RO 


;GET THE ANSWER TYPED 


1683 


007636 


020027 


000010 






cwp 


RO, #8, 


;IS THE NUMBER TOO HIGH? 


1684 


007642 


101106 








BHI 


RED04A 


;IF YES - GO TO RETRY SITUATION 


1685 


007644 


020027 


000005 






CMP 


P0,#5, 


;TS THE NUMBER TOO LOW? 


1686 


007650 


103503 








BLO 


RED04A 


;IF YES - GO TO RETRY SITUATION 


1687 


007652 


010067 


l7l 356 






MOV 


R0,$TMP15 


;ThE VALUE TYPED IS OK 


1688 
















; STORE FOP FUTURE USE 


1689 


007656 




n 1 n <i A A 






TYPE 


,RSTALL 


: RANDOM NO, OF MSEC, WAIT TIME 


1690 


007662 


104410 








RDOCT 




; ACCEPT THE ANSWER TYPED BY USER 


1691 














;A.«D STORE ON TOP OF STACK 


1692 


007664 


012667 


171316 






MOV 


{SP)+,STMP2 


;GET T^HE ANSWER TYPED 


1693 










jWE ARE 


NOW READY TO INITIALIZE 


THE BINARY COUNT AND GET 


1694 










|THE BINARY CHARACTER 




1695 










; 








1696 


007670 


012767 


mm 


171326 




MOV 


»-l,$TMPll 


jSET LEAD IN VARIABLE TO -1 


1697 


007676 


016767 


171322 


171322 


PRG5BI 


MOV 


$TMP11,STMPJ2 


; STORK PREVIOUS BINARY CHARACTER 


1698 


007704 


005267 


171316 






INC 


STMP12 


jFLlP BINARY CHAHACTfc.R AGAIN 


1699 


007710 


042767 


177400 


171310 




BIC 


#177400, STMPl? 


;MASK TO 8 BITS 


J700 


007716 


016767 


171304 


17J300 




MOV 


STMP12, STMPl 1 


jSTORE BINARY CHARACTER 
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T25 
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1701 


007724 


016767 


171276 


171252 




MOV 


8TMP12, STMPl 


.•STORE BINARY CHARACTER 


1702 
















;FOR FUTURE USE 


1703 


007732 


016767 


171244 


171250 




MOV 


8TMP0,STMP3 


yGET THE XDBR ADDRESS 


1704 


007740 


162767 


000002 


171242 




SUB 


»2,STMP3 


;FORM THE XCSR ADDRESS 


1705 


007746 


005767 


171234 




161 


TST 


STMP2 


;D0 WE RANDOM STALL? 


1706 


007752 


001402 








BEQ 


2$ 


/;BRANCH IF IT WASN'T DESIRED 


1707 


007754 


004767 


003624 






JSR 


PC, STALL 


;G0 STALL RANDOM VALUE OF MSEC, 


1708 


007760 


004767 


003730 




2Sl 


JSR 


PCTIMETX 


;G0 WAIT FOR TRANSMITTER DONE 


1709 
















?BIT TO SET 


1710 


007764 


104401 


017120 






TYPE 


,XDB 


;TYPE TRANSMITTER DONE PIT MESSAGE 


1711 


007770 


104000 








ERROR 




jXCSR DONE BIT NEVER SET 


1712 


007772 


052777 


000004 


171210 




BIS 


«BIT2,98TMP3 


ySET THE MAINTENANCE BIT IN THE 


1713 
















{TRANSMITTER CONTROL STATUS REGISTER 


1714 


OlOoOO 


016777 


171200 


171J74 




MOV 


STMPl, &$TMPO 


J LOAD TRANSMITTER DATA BUFFER 


1715 
















;WITH SELECTED CHARACTER 


1716 


010006 


004767 


003664 






JSR 


PCTIMERX 


;G0 WAIT FQR RECEIVER DONE BIT TO SET 


1717 


010012 


104401 


017167 






TYPE 


,RDB 


jTXPE RECEIV€R DONE BIT MESSAGE 


1718 


010016 


104000 








ERROR 


+ 


;RCSR DQm BIT NEVER SET 


1719 


010020 


016767 


171164 


171164 




MOV 


8TMP3, STMP4 


;GET THE TRANSMITTER CONTROL 


1720 
















{STATUS R&G*STER ADDRESS 


1721 


010026 


162767 


000002 


171156 




SUB 


#2,$TMP4 


{FORM THE RECEIVER DATA BUFFER 


1722 
















{ADDRESS 


1723 


010034 


017767 


171152 


171152 




MOV 


§STMP4,STMP5 


{STORE THE CHARACTER FROM THE 


1724 
















{RECEIVER BUFFER + REST OF CONTENTS 


1725 


010042 


004767 


003704 






JSR 


PC,DATCHK 


{GO TO COMPARE EXPECTED & RECEIVED 


1726 














{DATA 


1727 


010046 


000713 








BR 


PRG5B 


{GO BACK TO ISSUE AMQTHER BINARY 


1728 
















{CHARACTER 


1729 


010050 


104401 


001252 




RED04I 


TYPE 


,SQUES 


{TYPE A QUESTION MARK(?) 


1730 


010054 


000167 


177426 






JMP 


PRG5A 


{GO BACK TO REITERATE XDBR QUESTION 


1731 


010060 


104401 


001252 




RED04AI 


TYPE, 


$OUES 


{TYPE '?' INDICATING USER TYPED 


1732 
















{SOMETHING WRONG FOR CHARACTER LENGTH 


1733 


010064 


000167 


177536 






JMP 


PRG5C 


{GO BACK TO REISSUE QUESTION 


1734 
1735 










iTHIS ROUTINE 


WILL SET UPi 




1736 










f 


RCSR - 


RECEVER STATUS REGISTER 


1737 










1 


RBUF - 


RECEIVER BUFFER 


REGISTER 


1738 












XCSR » 


TRANSMITTER STATUS REGISTER 


1739 










1 


XBUF « 


TRANSMITTER BUFFER REGISTER 


1740 










lINITIALLY, IN 


RESPONSE TO USER 


REPLY TO 1ST DEVICE HE WANTS 


1741 










1 TESTED 


, AND THEREAFTER, AT THE 


END OF A PROGRAM TO CYCLE THRU 


1742 










lALL DEVICES FOR MULTIPLE DEVICE TESTING (IF REQUIRED) 


1743 


010070 


016767 


171164 


171312 


DLADDRl 


MOV 


DLBASE,DLRCSR 


{STORE RECEIVER STATUS REGISTER 


1744 
















{OF CURRENT DEVICE 


1745 


010076 


062767 


000002 


171154 




ADD 


#2,DLBASE 


{FORM RECEIVER BUFFER REGISTER 


1746 
















{OF CURRENT DEVICE 


1747 


010104 


016767 


171150 


171300 




MOV 


DLBASE,DLRDBR 


{STORE RECEIVER BUFFER REGISTER 


1748 
















{OF CURRENT DEVICE 


1749 


010112 


062767 


000002 


171140 




ADD 


«2,DLBASE 


{FORM TRANSMITTER STATUS REGISTER 


1750 
















{OF OF CURRENT DEVICE 


1751 


010120 


016767 


171134 


171266 




MOV 


DLBASE,DLXCSR 


{STORE TRANSMITTER STATUS REGISTER 


1752 
















{OF CURRENT DEVICE 


. 1753 


010126 


062767 


000002 


171124 




ADD 


#2,DLBASE 


{FOR TRANSMITTER BUFFER REGISTER 


1754 
















{OF CURRENT DEVICE 


1755 


010134 


016767 


17U20 


171254 




MOV 


DLBASE,DLXDBR 


{STORE TRANSMITTER BUFFER REGISTER 


1756 
















{OF CURRENT DEVICE 



MAINDEC-ll-DZDLC-B 



DZDLCB 


PI 1 


)6'*MAY"77 


IO1O4 


1 757 


010142 


000207 




1758 








1759 








1760 








1761 








1762 








1763 








1764 








1765 








1766 








1 767 


010144 






1768 








1769 








1770 








1771 








1772 


01 Ol 44 


000004 




177 3 


010146 


105767 


171120 


177 4 


01 Ol 52 


001501 




1775 








1776 


010154 


005767 


171114 


1777 


010160 


00101 1 




1778 


0t0l6? 


1 04401 


0201 10 


1779 








1780 








1781 








1782 


010166 


000000 




1783 


0l0i70 


005067 


171076 


1784 


0] Ol 74 


005067 


171056 


1785 


010200 


0001 67 


171566 


1786 








1787 








17 8 8 


1 0^04 


062767 


000010 


1789 








1790 








1791 


01 0212 


062767 


00001 


1792 








1793 








1794 


01 0220 


000241 




1 795 


01 0222 


006 1 67 


171050 


1796 








1797 


01 0226 


103431 




1798 








1799 








1800 


010230 


036767 


171042 


1801 








1802 


010236 


001762 












1804 


ni0240 


016767 


171020 


1805 








1806 


010246 


016767 


171016 


1807 


010254 


000240 




jaoR 


010256 


004767 


177606 


1 8t>9 








1810 


010262 


005067 


170614 


181 1 
1812 


010266 


005077 


17U22 
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HTS ■ PC fHETUPN 

.SBTTL END OF PASS ROUTINE 

I I ###»♦######«###»#«##»»»##*♦#♦#«#«»####♦*#«♦##♦####»#♦»#*#*»«#»# 

l»INCREMENT THE PASS NUMBER (SPASS) 

l»TYPE "END PASS «XXXXX" (WHERE XXXXX IS A DECIMAL NUMBER) 
|»IF THERES A MONITOR GO TO IT 
f»ir THERE ISN'T JUMP TO RESTRT 

$EOP| 

iTHIS NEXT SECTION UP TO THE NEXT LINE OF ASTERISKS WAS 
^SUPPLIED B5f THE MACRO 'EOPBEG', THE MACRO NAME APPEARS IN 
jTHE SOURCE PROGRAM AS ONE OF THE ARGUMENTS TO THE ,SEOP 
ISYSMAC UTILITY ROUTINE CALL, 
SCOPE 



171052 l$I 



171036 



171 144 



TSTB 
BEO 

TST 
BNE 
TYPE 



HALT 
CLR 
CLR 
JMP 



CLC 
ROL 



MOV 
NOP 
JSR 



MULTD 
3$ 

ACTREG 
U 

iFOULUP 



MULTD 

TABFLG 

RESTRT 



#10#BASEADD 



#10»BASEIV 



ROTADD, ACTREG 



BASEADD,DLBASE 
BASEIVfDLVECT 



PCDLADDR 



jARE WE RUNNING MULTIPLE DEVICES? 
BRANCH IF NOT FOR NORMAL 
'END PASS # XX' TYPEOUT 
ARE ANY DEVICES ACTIVE? 
BRANCH IF YES 
INDICATE SOMETHING WRONGl 
MULTIPLE DEVICES ARE BEING 
RUN SUPPOSEDLY, BUT NONE ARE 
SHOWN ACTIVE 

WAIT FOR A USER RESPONSE 
CLEAR MULTIPLE DEVICE FLAG 
CLEAR TABLE CREATION FLAG 
GET READY TO START ALL OVER 
AGAIN - ALL DEVICES WERE 
DESELECTED SOMEHOW} 
FORM A NEW BASE 

ADDRESS FOR START OF NEXT BLOCK 
OF REGISTERS FOR NtXT DEVICE 
FORM A NEW BASE ADDRESS FOP 
START OF NEXT BLOCK OF VECTORS 
FOR NEXT DEVICE 
CLEAR LAST DEVICE INDICATOR 
UPDATE NEXT POSSIBLE DEVICE ACTIVE 
POINTER 

BRANCH IF This WAS THE 
LAST DEVICE TO BE TESTED ON 
THIS PASS 

IS THIS DEVICE TRULY ACTIVE 
(AS PER USER) 

BRANCH IF NOT TO SEE IF NEXT 
ONE POSSIBLE IS 

FORM THE RECEIVER STATUS REGISTER 

ADDRESS OF NEXT DEVICE 

GET NEXT DEVICE RCVH VECTOR 

GO FORM DL ADDRESSES FOR NEXT 
DEVICE SELECTED 

INITIALIZE lEST NO. FOR A PROGRAM 
PASS OVER THE MEXT DEVICE ACTIVE 
CLEAR OUT BOTH CSR'S 
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1813 


010272 


005077 


171112 




CLR 


0DLRCSP 




1814 


010276 


005777 


171110 




TST 


?DLRDBR 


jFLUSH RCVH "DONE" WIT 


1815 


010302 


005777 


171104 




TST 


^DLPDBR 




1816 


010306 


000167 


172456 




JMP 


TSTl 


;START TESTING THIS DEVICE 


1817 


010312 








2$l 






1818 










J IF WE TAKE THIS PATH WE HAVE MADE A CYCLE THRU THE PROGRAM ONCE 


1R19 










jPER DEVICE I, 


E. - WE HAVE MADE 


A COMPLETE PASS 


1820 










jNOW WE NEED TO RESTORE EVERYTHING FOR THE NEXT COMPLETE PASS 


1821 


OIO1I2 


012767 


000001 


170756 


MOV 


#1,R0TADD 


jSET UP ROTATING POINTER FOR NEXT 


1822 














;MULTIPLE PASS 


1823 


010320 


016767 


170736 


170736 


MOV 


KEEPADD,BASEADD 


; RESTORE BASE ADDRESS 


1824 


010326 


016767 


170734 


170734 


MOV 


KEEPIV,BASEIV 


J RESTORE BASE INTERRUPT VECTOR 


1825 


010334 


016767 


170724 


170716 


MOV 


BASEADD,DLBASE 


^RESTORE 1ST DEVICE BASE ADDRESS 


1826 


010342 


016767 


170722 


171050 


MOV 


BASEIV#DLVECT 


f RESTORE 1ST DEVICE VECTOR ADDRESS 


1827 


010350 


000240 






NOP 






1828 


010352 


004767 


177512 




JSR 


PCDLADDR 


;FORM ADDRESSES FOR 1ST DEVICE 


1829 


010356 








3$t 






1830 










1 1 •«««««««**»««»«««««»«»*«««««««««««»«««««««»»««« »»«««•«««««««««« 


1831 


010356 


005067 


170520 




CLR 


STSTNM 


J 1 ZERO THE TEST NUMBER 


1832 


010362 


005067 


170654 




CLR 


$ TIMES 


jfZERO THE NUMBER OF ITERATIONS 


1833 


010366 


005267 


170506 




INC 


SPASS 


; f II*<CREMENT THE PASS NUMBER 


1834 


010372 


042767 


100000 


170500 


BIC 


#100000, SPASS 


mDON'T ALLOW A NEG, NUMBER 


1835 


010400 


005327 






DEC 


(PC) + 


f J LOOP? 


1836 


010402 


000001 






$EOPCTl .WORD 


1 




1837 


010404 


003022 






BGT 


SDOAGN 


; jYES 


1838 


OIO4O6 


012737 






MOV 


(PC)+,?(PC)+ 


^RESTORE COUNTER 


1839 


010410 


000001 






SENDCTI .WORD 


1 




1840 


010412 


010402 






SEOPCT 






1841 


010414 


104401 


010461 




TYPE 


fSENDMG 


..TYPE "END PASS #'» 


1842 


010420 


016746 


170454 




MOV 


SPASS, -(SP) 


nSAVE SPASS FOR TYPEOUT 


1843 


010424 


104405 






TYPDS 




jjGO TYPE— DECIMAL ASCII WITH SIGN 


1844 


010426 


104401 


010456 




TYPE 


iSENULL 


;>TYPE A NULL CHARACTER 


1845 


010432 


013700 


000042 




SGET42I MOV 


§*42,R0 


;}GET MONITOR ADDRESS 


1846 


010436 


001405 






BEQ 


SDOAGN 


jjBRANCH IF NO MONITOR 


1847 


010440 


000005 






RESET 




;f CLEAR THE WORLD 


1848 


010442 


004710 






SENDADi JSR 


PC, (RO) 


jiGO TO MONITOR 


1849 


010444 


000240 






NOP 




WSAVE ROOM 


1850 


010446 


000240 






NOP 




nFOR 


1851 


010450 


000240 






NOP 




mactu 


1852 


010452 








SDOAGNi 






1853 


010452 


000137 






JMP 


9(PC)+ 


JiBETURN 


1854 


010454 


001772 






SRTNADi .WORD 


RESTRT 




1855 


010456 


377 


377 


000 


$ENULLl .BYTE 


-1,-1,0 


ffNULL CHARACTER STRING 


1856 


010461 


015 


042412 


0421 16 


$ENDMG| .ASCIZ 


<15><12>/END PASS #/ 


1857 


010466 


050040 


051501 


020123 








1858 


010474 


000043 












1859 










.SBTTL SCOPE 


HANDLER ROUTINE 




1860 
















1861 










1 1 »#«**##«#»#»#*#♦#*»»#«#»#♦##»•»*»##»##»###»#»•»»«»##»##»#####«# 


1862 










|»THIS ROUTINE 


CONTROLS THE LOOPING OF SUBTESTS, IT WILL INCREMENT 


1863 










f»AND LOAD THE 


TEST NUMBERCSTSTNM) INTO THE DISPLAY REG , CDISPLAY<7 1 0> J 


1864 










y»AND LOAD THE 


ERROR FLAG (SERFLG) INTO DISPLAY<15 I 08> 


1865 










f»THE SWITCH OPTIONS PROVIDED BY 


THIS ROUTINE AREl 


1866 










y*SW14sl 


LOOP ON TEST 




1867 










|*SWll«l 


INHIBIT ITERATIONS 


1868 










f*SW09al 


LOOP ON ERROR 
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1669 










f»SW08al 


LOOP ON TEST IN 


SWR<7 J0> 


1870 










>«CALL 








1871 












SCOPE 


> )SC0PE=10X 


1872 


















1873 


010476 








SSCOPEl 








1874 


01 0476 


032777 


040000 


170434 


Ul 


BIT 


»BIT14#PSWR 


; ;LOOP ON PRESENT TEST? 


1875 


010504 


001111 








BNE 


$OVER 


;;YES IF SWH = 1 


1876 










}««»i#STAPT OF 


CODE FOR THE XOR 


TESTERKK^M 


1877 


ni 0506 


00041 6 






$XTSTBl 


BR 


6$ 


;jIF PUNNING ON THE "XOR" TESTER CHANGE 


1878 
















jjTHIS INSTRUCTION TO A "NOP" (N0P=240) 


1879 


010510 


01 3746 


000004 






MOV 


9#ERRVEC,-(SP) 


;;SAVE THE CONTtNTS OF THE ERROR VECTOR 


1880 


010514 


01 2737 


010534 


000004 




MOV 


#5S»0#ERRVEC 


; jSET FOR TIMEOUT 


1881 


010522 


005737 


177060 






TST 


i#l77060 


; JTIME OUT ON XOR? 


1882 


010526 


012637 


000004 






MOV 


(SP)+,@»ERRVEC 


RESTORE THE ERROR VECTOR 


1883 


010532 


000463 








BR 


$SVLAD 


jjGO TO THE NEXT TEST 


J 884 


01 0534 


022626 






SSI 


CMP 


CSP)+, CSP)+ 


;|CLEAR THE STACK AFTER A TIME OUT 


1885 


010536 


012637 


000004 






MOV 


(SP)+,P«ERRVEC 


;SREST0RE THE ERROR VECTOR 


1886 


010542 


000423 








BR 


7S 


JILOOP ON THE PRESE.'iT TEST 


1887 


010544 








6$IM#»»«*END OF 


CODE FOR THE XOP 


TESTER«#»«« 


1888 


01 0544 


032777 


000400 


170366 




BIT 


#BIT08,(aSWR 


;iLOOP ON SPEC, TEST? 


1889 


010552 


001404 








BEQ 


28 


j;8P IF NO 


1890 


010554 


127767 


170360 


170320 






?SWR,STSTNM 


;;0N THE RIGHT TEST? SWR<7:0> 


1891 


010562 


001 462 








BEQ 


$OVER 


;|BR IF YES 


1892 


010564 


105767 


170313 




2SI 


TSTB 


5ERFLG 


•{HAS AN ERROR OCCUWRED? 


1893 


010570 


001421 








BEO 


3$ 


;|BP IF NU 


1894 


010572 


126767 


170317 


170303 




CMpB 


0ERMAX,SERFLG 


M^^AX, ERRORS FOP THIS TEST OCCURRED? 


1895 


010600 


101015 








BHI 


3S 


mbr if no 


1896 


01 0602 


032777 


OOlOOO 


170330 




BIT 


»BrTO9#0SWR 


; jLOOP ON ERROR? 


1897 


010610 


001404 








BEQ 


4S 


;>BR IF no 


1898 


01 0612 


016767 


170272 


170266 


7$l 


MOV 


$LPERR,SLPADR 


•J SET LOOP ADDRESS TO LAST SCOPE 


1899 


010620 


000443 








BR 


SOVF.R 




1900 


010622 


105067 


170255 




43: 


CURB 


SERFLG 


;;ZERO THE FRROR FL^G 


1901 


010626 


005067 


170410 






CLR 


STIMES 


;jCLEAR THE NUMBER UF ITERATinNS TU MAKE 


1902 


010632 


000415 








BP 


1$ 


;jESCAPE TU THE NEXT TEST 


190? 


010634 


032777 


004000 


170276 


3Sl 


BIT 


#BIT11,&5WR 


jjiNHIBIT ITERATIONS? 


1904 


01 0642 


00101 1 








BNE 


IS 


jfBP IF YES 


1905 


010644 


005767 


170230 






TST 


SPASS 


;»IF FIRST PASS OF PROGRAM 


1906 


010650 


001406 








BEQ 


1 8 


INHIBIT ITERATIONS 


1907 


010652 


005267 


170226 






INC 


SICNT 


J! INCREMENT ITERATION COUNT 


1908 


010656 


026767 


170360 


170220 




CMP 


STIMES, SICNT 


;>CHECK THE NUMBER OF ITERATIONS MADE 




010664 


1? 2 1 








BGE 


SOVER 


;jBR IF MOPE ITERATION REQUIRED 


1910 


010666 


01 2767 


000001 


170210 


ISl 


MOV 


#1 , SICNT 


; f REINITIALIZE THE ITERATION COUNTt^ 


1911 


010674 


016767 


000044 


170340 




MOV 


SMXCNT, STIMES 


;;SET NUMBER OF ITE-^ATIONS TO DO 


1912 


01 0702 


105267 


170174 




SSVLADj 


INCB 


STSTNM 


; jCOUWT TEST NUMBERS 


1913 


01 0706 


01 1667 


170174 






MOV 


(SP),SLPADR 


;jSAVE SCOPE LOOP AHDRESS 


1914 


010712 


011667 


170172 






MOV 


CSP),SLPERR 


jjSAVE ERROR LOOP ADDRESS 


1915 


01 16 


005067 


170322 






CLR 


SESCAPE 


jjCLEAR THE ESCAPE FROM ERROR ADDRESS 


1916 


01 0722 


112767 


000001 


170165 




MOVB 


«1,$ERMAX 


;jONLY ALLOW ONEd) ERROR ON NEXT TESl 


1917 


010730 


016777 


170146 


170204 


SOVERl 


MOV 


STSTNM, iDISPLAy 


;jOISPLAy TEST NUMBF.R 


1918 


01 0736 


016716 


170144 






MOV 


SLPADR, (SP) 


;jEUDG£ RETURN ADDRESS 


1919 


0107 42 


000002 








RTI 




;;F1XES PS 


1920 


010744 


000100 






SMXCNTi 


100 




•jMAX, NUMBER OF ITERATIONS 



1921 

1922 .SBTTL ERROR -HANDLER ROUTINE 

1923 

1924 I ; «»«'««'»#«»'»^'»*'»*«' 
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1925 










i»THIS ROUTINE 


WILL INCREMENT 


THE ERROR FLAG Af'D THE ERROR COUNT, 


1926 










;»SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 


1927 










j»AND GO TO 8ERRTYP ON ERROR 




1928 










;#THE SWITCH OPTIONS PROVIDED 


BY THIS ROUTINE ARE? 


1929 










l»SW15sl 


HALT ON ERROR 




1930 










|*SW13=1 


INHIBIT ERROR 


TYPEOUTS 


1931 










J»SW10«1 


BELL ON ERROR 




1932 










,»SW09si 


LOOP ON ERROR 




1933 










I»CALL 






1934 










1* ERROR 


N jfERRORrEMT AND N = tRROR ITE*^ NUMBER 


1935 
















1936 


010746 








SERRORl 






1937 


010746 


105267 


170131 




7Sl INCB 


SERFLG 


nSET THE ERROR FLAG 


1938 


010752 


001775 






BEQ 


7S 


nDON'T LET THE FLAG GO TO ZERO 


1939 


010754 


016777 


170122 


170160 


MOV 


STSTNM, PDISPLAY ;jDISPLAY TEST NUMBER AND ERROR FLAG 


1940 


010762 


032777 


002000 


170150 


BIT 


#BlT10,(aSWR 


; JBELL ON ERROR? 


1941 


01 0770 


001402 






BEQ 


IS 


;fNO - SKIP 


1942 


010772 


104401 


001246 




TYPE 


rSBELL 


; IRING BELL 


1943 


01 0776 


005267 


170U0 




IS: INC 


8EBTTL 


•jCOUNT THE NUMBER OF ERRORS 


1944 


011002 


011667 


170110 




MOV 


(SP),$EPRPC 


;>GET ADDRESS OF ERROR INSTRUCTION 


1945 


011006 


162767 


000002 


170102 


SUB 


»2,$ERBPC 




1946 


01 lnl4 


117767 


170076 


170072 


MOVB 


eSERRPCSlTEMB yiSTRIP AND SAVE THE ERROR ITEM CODE 


1947 


011022 


032777 


020000 


170110 


BIT 


#BIT13,9SWR 


" JlSKIP TYPEOUT IF S5T 


1948 


011030 


001004 






BNE 


208 


;f5KIP TYPEOUTS 


1949 


011032 


004767 


000044 




JSR 


PCSERRTYP 


;}G0 TO USER ERROR ROUTINE 


1950 


011036 


104401 


001253 




TYPE 


f SCRLF 




1951 


011042 








20s: 






1952 


011042 


005777 


170072 




281 TST 


©SWR 


;>HALT ON ERROR 


1953 


011046 


100001 






BPL 


38 


f JSKIP IF CONTINUE 


1954 


011050 


000000 






HALT 




yjHALT ON ERROR! 


1955 


011052 


032777 


001000 


170060 


38| BIT 


#BIT09#95WR 


;jLOOP ON ERROR SWITCH SET? 


1956 


011060 


001402 






BEQ 


4$ 


;»BR IF NO 


1957 


011062 


016716 


170022 




MOV 


SLPERR, (SP) 


ff FUDGE RETURN FOR LOOPING 


1958 


011066 


005767 


170152 




481 TSI 


SESCAPE 


fiCHECK FOR AN ESCAPE ADDRESS 


1959 


01 1072 


001402 






BEQ 


56 


nBR IF NONE 


1960 


01 1074 


016716 


170144 




MOV 


SESCAPE, (SP) 


;;FUDGE RETURN ADDRESS FOR ESCAPE 


1961 


OIUOO 








581 






1962 


OUlOO 


000002 






RTI 




; » RETURN 


1963 
















1964 










.SBTTL ERROR 


MESSAGE TYPEOUT 


ROUTINE 


1965 
1966 










f } »««««««•»»««««*«'«»»»««'««»««•«**«#'»««*««««««««»#»«»*««#«#««««*«« 


1967 










j#THIS ROUTINE 


USES THE "ITEM 


CONTROL BYTE" (8ITEMB) TO DETERMINE WHICH 


1968 










|»ERROR IS TO 


BE REPORTED, IT 


THEN OBTAINS, FROM THE "ERROR TABLE" (SERKTB) 


1969 










|«AND REPORTS 


THE APPROPRIATE 


INFORMATION CONCERNING THE ERROR, 


1970 
















1971 


OII1O2 








SEBRTYPi 






1972 


01U02 


104401 


001233 




TYPE 


#8CRLF 


n "CARRIAGE RETURN" & "LINE FEED" 


1973 


011106 


010046 






MOV 


B0,-(SP) 


; jSAVE RO 


1974 


011110 


005000 






CLR 


BO 


nPICKUP THE ITEM INDEX 


1975 


011112 


153700 


001114 




BISB 


&#8ITEMB,R0 




1976 


011116 


001004 






BNE 


18 


; J IF ITEM NUMBER IS ZERO, JUST 


1977 














jjTYPE THE PC OF THE ERROR 


1978 


on 120 


016746 


167772 




MOV 


8ERBPC»«(SP) 


;>SAVE SERRPC FOR TYPEOUT 


1979 














; {ERROR ADDRESS 


1980 


011124 


104402 






TYPOC 




MGO TYPE— OCTAL ASCIKALL DIGITS) 



MAINDEC«11-dZDLC-B MftCYll 30(1046) 12-JUL-77 10102 PAGE 41 

DZDLCB,Pn 06«MAy-77 10|04 EBROP MESSAGE TYPEOUT ROUTINE 



1981 


011126 


000426 




1982 


011130 


005300 




1983 


011132 


006300 




1984 


011134 


006300 




1985 


011136 


006300 




1986 


01 1140 


062700 


001310 


1987 


011144 


012067 


000004 


1988 


011150 


001404 




1989 


01 1 152 


104401 




1990 


011154 


000000 




1991 


01 H56 


104401 


001253 


1992 


01 1162 


012067 


000004 


1993 


Oil 166 


001404 




1994 


01U70 


104401 




1995 


011172 


000000 




1996 


011174 


104401 


001253 


1997 


01 1200 


01 1000 




I99fi 


01 1202 


001004 




1999 


01 1204 


012600 




2000 


01 1206 


104401 


001253 


2001 


011212 


000207 




2002 


011214 






2003 


011214 


01 3046 




2004 


011216 


104402 




2005 


01 1220 


005710 




2006 


01 1222 


001770 




2007 


011224 


104401 


011232 


2008 


01 1230 


000771 




2009 


011232 


020040 


000 


2010 




01 1236 




201 1 








201 2 








2013 








2014 








2015 








2016 








2017 








2018 








2019 








2070 








2021 








2022 








2023 








2024 








2025 








2026 








2027 








202B 








2029 








2030 








2031 








2032 








2033 








2034 








2035 








2036 











BR 


68 


; iGET OUT 


IS I 


DEC 


RO 


; > ADJUST THE INDEX SO THAT IT WILL 




ASL 


RO 


;> WORK FOR THE ERROR TABLE 




ASli 


RO 






ASIi 


RO 






ADD 


»8ERRTBf RO 


JiFORM TABLE POINTER 




MOV 


{P0)+,28 


jjPICKUP "ERROR MESSAGE" POINTER 




BEQ 


38 


JJSKIP TYPEOUT IF NO POINTER 




TYPE 




;|TYPE THE "ERROR MESSAGE" 


2$i 


.WORD 





n "ERROR MESSAGE" POINTER GOES HERE 




TYPE 


»8CPLF 


M "CARRIAGE RETURN" & "LINE FEED" 


3Sl 


MOV 


(R0)+#4$ 


JJPICKUP "DATA HEADER" POINTER 




BEQ 


58 


J JSKIP TYPEOUT IF 




TYPE 




MTYPE the "DATA HEADER" 


4S| 


.WORD 





;>«DATA HEADER" POINTER GOES HERE 




TYPE 


»8CPLF 


J 1 "CARRIAGE RETURN" & "LINE FEED" 


58: 


MOV 


CR0),R0 


MPICKUP "DATA TABLE" POINTER 




BNE 


78 


;jGO TYPE THE DATA 


6 $ 1 




t Co ^ J. D n 


; 1 HCiO I UKCi HO 




TYPE 


.8CPLF 


;f "CARRIAGE RETURN" S. "LINE FEED" 




RTS 


PC 


; ^RETURN 


7$l 










MOV 


e(R0)+,-(SP) 


;>SAVE @CR0)+ FOR TYPEOUT 




TYPOC 




?>GD TYPE— 'OCTAL ASCIICALL DIGITS) 




TST 


CRO) 


IjIS THERE ANOTHER NUMBER? 




BEQ 


68 


;jBR IF NO 




TYPE 


»88 


;jTYPE TW0(2) SPACES 




BR 


78 


J J LOOP 


88: 


.ASCIZ 


/ / 


;>TW0(2) SPACES 




,EVEN 






.SBTTL 


BINARY 


TO OCTAL (ASCII) 


AND TYPF 



l*THIS ROUTINE IS USED TO CHANGE A 16-BlT BINARY NUMBER TO A 6-DlGIT 
{»OCTAL (ASCII) NUMBER AND TYPE IT, 

j»$TYPOS— ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
;*CALLl 

j» MOV NUM»-(SP) ;»NUMBER TO BE TYPED 

r* TYPOS jjCALL FOR TYPEOUT 

|» .BYTE N riN=l TO 6 FOR NUMBER OF DIGITS TO TYPE 

>» .BYTE M ;>^^=1 OR 



J|1=TYPE LEADING ZEROS 
MO=SUPPPESS LEADING ZEROS 



%* 

:* 
i» 

f»STYPON — — ENTER HEBE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

f»STXPOS OR STYPOC 

|*CALL: 

|» MOV NUM,-(SP) ;;NUMRER TO BE TYPED 

J* TYPON jjCALL FOR TYPEOUT 

I* 

|»8TYP0C — ENTER HERE FOR TYPEOUT OF A 16 BIT NUM8EP 
l«CALLl 

;» MOV NUM,-(SP) jjNUMBER TO BE TYPED 

I» TYPOC mCALL for TYPEOUT 
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2037 


011236 


017646 


000000 




STYPOS: 


MOV 


§(SP)#-(SP) 


; J PICKUP THE MODE 


2038 


01 1242 


116667 


000001 


000211 




MOVB 


l(SP)f 80FILL 


;»LOAD ZERO FILL SWITCH 


2039 


01 1250 


1 12667 


000207 






MOVB 


(SP)+,60M0DE+1 


IJNUMBER OF DIGITS TO TYPE 


2040 


01 1254 


062716 


000002 






ADD 


#2, (5P) 


ADJUST RETURN ADDRESS 


2041 


01 1260 


000406 








BR 


8TYP0N 




2042 


01 1262 


112767 


000001 


000171 


STYPOC: 


MOVB 


#1,80FXLL 


;jSET THE ZERO FILL SWITCH 


2043 


011270 


112767 


000006 


000165 




MOVB 


»6,SOM0DE+l 


yjSET FOR SIX(6) DIGITS 


2044 


011276 


112767 


000005 


000154 


STYPON: 


MOVB 


#5,80CNT 


;»SET THE ITERATION COUNT 


2045 


01 1304 


010346 








MOV 


R3,-(SP) 


;fSAVE R3 


2046 


011306 


010446 








MOV 


R4,-(SP) 


yiSAVE R4 


2047 


011310 


010546 








MOV 


R5,-(SP) 


; J SAVE R5 


2048 


011312 


116704 


000145 






MOVB 


80MODE-«-l,R4 


fjGET THE NUMBER OF DIGITS TO TYPE 


2049 


011316 


005404 








NEG 


R4 




2050 


Oil 320 


062704 


000006 






ADD 


#6,R4 


^SUBTRACT IT FOR MAX, ALLOWED 


2051 


Oil 324 


110467 


000132 






MOVB 


R4,80M0DE 


; JSAVE IT FOR USE 


2052 


011330 


116704 


000125 






MOVB 


80FILLf R4 


jfGET THE ZERO FILL SWITCH 


2053 


01 1334 


016605 


000012 






MOV 


12{SP),R5 


;jPICKUP THE INPUT MUMBER 


2054 


01 1340 


005003 








CLR 


R3 


;jCLEAR THE OUTPUT WORD 


2055 


01 1 342 


006105 






18: 


ROL 


R5 


jfROTATE MSB INTO »C" 


2056 


01 1344 


000404 








BP 


33 


;)G0 DO MSB 


2057 


01 1346 


006105 






28: 


ROL 


R5 


yjFORM THIS DIGIT 


205 8 


011350 


006105 








ROL 


R5 




2059 


011352 


006105 








ROL 


R5 




2060 


Oil 354 


010503 








MOV 


B5,R3 




2061 


01 1356 


006103 






38: 


ROL 


R3 


;>GET LSB OF THIS DIGIT 


2062 


01 1360 


105367 


000076 






DECB 


80M0DE 


jfTYPE THIS DIGIT? 


2063 


011364 


100016 








BPL 


78 


jfBR IF NO 


2064 


011366 


042703 


177770 






BIC 


#177770, R3 


jjGET RID OF JUNK 


2065 


01 1372 


001002 








BNE 


48 


jjTEST FOR 


2066 


011374 


005704 








TST 


R4 


JISUPPRESS THIS 0? 


2067 


011376 


001403 








BEQ 


58 


nBR IF YES 


2068 


011400 


005204 






48: 


INC 


R4 


jjDON'T SUPPRESS ANYMORE O'S 


2069 


01 1402 


052703 


000060 






BIS 


#'0#R3 


jjMAKE THIS DIGIT ASCII 


2070 


011406 


052703 


000040 




58: 


BIS 


»' ,R3 


IjMAKE ASCII IF NOT ALREADY 


2071 


011412 


110367 


000040 






MOVB 


R3,88 


nSAVE FOR TYPING 


2072 


011416 


104401 


011456 






TYPE 


t%% 


?:G0 TYPE THIS DIGIT 


2073 


01 1422 


105367 


000032 




78: 


DECB 


SOCNT 


nCOUNT BY 1 


2074 


011426 


003347 








BGT 


28 


nBP IF MORE TO DO 


2075 


011430 


002402 








BLT 


68 


nBR IF DONE 


2076 


011432 


005204 








INC 


R4 


; f INSURE LAST DIGIT ISN'T A BLANK 


2077 


011434 


000744 








BR 


2$ 


nGO DO THE LAST DIGIT 


2078 


011436 


012605 






68: 


MOV 


(SP)+,R5 


;: RESTORE R5 


2079 


011440 


012604 








MOV 


(SP)-f,R4 


;f RESTORE B4 


2080 


011442 


012603 








MOV 


(SP)+,R3 


jf RESTORE R3 


2081 


01 1444 


016666 


000002 


000004 




MOV 


2{SP)»4(SP) 


nSET THE STACK FOR RETURNING 


2082 


011452 


012616 








MOV 


(SP)+,(SP) 




2083 


01 1454 


000002 








RTI 




n RETURN 


2084 


011456 


000 






88: 


.BYTE 





jjSTORAGE FOR ASCII DIGIT 


2085 


01 1457 


000 








.BYTE 





jfTERMINATOR FOR TYPE ROUTINE 


2086 


011460 


000 






80CNT: 


.BYTE 





nOCTAL DIGIT COUNTER 


2087 


Oil 461 


000 






SOFILL: 


.BYTE 





J f ZERO FILL SWITCH 


2088 


011462 


000000 






lOMODE: 


.WORD 





nNUMBER OF DIGITS TO TYPE 



2089 

2090 .SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

2091 
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2093 










>»THIS 


ROUTINE 


IS USED TO CHANGE 


A 16-BIT BINARY NUMBER 


TO A 5-DIGIT 


2094 










|»SIGNED DECIMAL (ASCII) NUMBER 


AND TYPE IT, DEPENDING ON WHETHER THE 


2095 










,»NUMBER IS POSITIVE OR NEGATIVE 


A SPACE OR A MINUS SIGN 


WILL BE TYPED 


2096 










f #BEFORE THE FIRST DIGIT OF THE 


NUMBER, LEADING ZEROS WILL ALWAYS BE 


2097 










l«REPLACED WITH 


SPACES, 






2098 










»*CALLJ 










2099 












MOV 


NUMf »(SP) 


; jPUT THE BINARY NUMBER 


ON THE STACK 


2100 












TYPDS 




f f GO TO THE ROUTINE 




2101 




















2102 


01 1464 








STYPDSl 










2103 


011464 


010046 








MOV 


R0,-(SP) 


; J PUSH PO ON STACK 




2104 


Oil 466 


010146 








MOV 


RU-CSP) 


;|PUSH Rl ON STACK 




2105 


011470 


010246 








MOV 


R2,-(SP) 


JlPUSH R2 ON STACK 




2106 


011472 


010346 








MOV 


R3,-(SP) 


nPUSH R3 ON STACK 




2107 


01 1474 


010546 








MOV 


R5,-CSP) 


J J PUSH R5 ON STACK 




2108 


011476 


012746 


020200 






MOV 


#20200»-(SP) 


; J SET BLANK SWITCH AND SIGN 


2109 


0U502 


016605 


000020 






MOV 


20(SP),R5 


; ;GET THE INPUT NUMBER 




2110 


01 15O6 


100004 








BPL 


IS 


;jBR IF INPUT IS POS. 




2111 


011510 


005405 








NEG 


R5 


fjMAKE THE BINARY NUMBER 


POS, 


2112 


01 1512 


112766 


000055 


000001 




MOVB 


#'-#l(SP) 


; jMAKE THE ASCII NUMBER 


NEG. 


2113 


01 1520 


005000 






ISJ 


CLR 


RO 


; ) ZERO THE CONSTANTS INDEX 


21 14 


011522 


012703 


01 1700 






MOV 


#SDBLKf R3 


jjSETUP THE OUTPUT POINTER 


2115 


01 1526 


1 12723 


000040 






MOVB 


#' »CR3)+ 


jfSET THE FIRST CHARACTER TO A BLANK 


2116 


011532 


005002 






2$t 


CLR 


R2 


fiCLEAR THE BCD NUMBER 




2117 


011534 


016001 


01 1670 






MOV 


SDTBLCRO) »R1 


jjGET THE CONSTANT 




2118 


011540 


160105 






3SI 


SUB 


R1,R5 


; ;FORM THIS BCD DIGIT 




2119 


01 1542 


002402 








BLT 


4$ 


mbr if done 




2120 


011544 


005202 








INC 


R2 


; > INCREASE THE BCD DIGIT 


BY 1 


2121 


01 1546 


000774 








BR 


3$ 






2122 


01 1550 


060105 






4$i 


ADD 


R1,RS 


jfADD BACK THE CONSTANT 




2123 


0U552 


005702 








TST 


R2 


;»GHECK IF BCD DIG1T=0 




2124 


01 1554 


001002 








BNE 


5S 


MFALL THROUGH IF 




2125 


01 1556 


105716 








TSTB 


(SP) 


jjSTILL DOING LEADING 0* 


s? 


2126 


01 1560 


100407 








BMI 


7$ 


;iBR IF YES 




21 27 


01 1562 


106316 






set 


ASLB 


(SP) 


; jMSD? 




2128 


011564 


103003 








6CC ^ 


6$ 


jjBR IF NO 




2129 


011566 


1 16663 


000001 


177777 




MOVB 


1 (SP)»-1 CR3) 


;i YES— SET THE SIGN 




2130 


OII574 


052702 


000060 




6$i 


BIS 


#'0#R2 


; jMAKE THE BCD DIGIT ASCII 


2131 


011600 


052702 


000040 




7SI 


BIS 


«• fR2 


;;MAKE IT A SPACE IF NOT 


ALREADY A DIGl'l 


2132 


011604 


110223 








MOVB 


R2, (R3)+ 


;jPUT THIS CHARACTER IN 


THE OUTPUT BUFFER 


2133 


011606 


005720 








TST 


(R0) + 


;>JUST INCREMENTIt^G 




2134 


011610 


020027 


000010 






CMP 


R0,#10 


;;CHECK THE TABLE I^^DEX 




2135 


011614 


002746 








BLT 


2$ 


; >G0 DO THE MPXT DIGIT 




2136 


011616 


003002 








BGT 


8S 


;>G0 TO EXIT 




2137 


01 1620 


010502 








MOV 


R5,R2 


MGET the LSD 




2138 


011622 


000764 








BR 


6S 


;>G0 CHANGE TO ASCII 




2139 


011624 


105726 






BSl 


TSTB 


(SP) + 


; ;wAS THE LSD THE FIRST 


NON-ZERO? 


2140 


011626 


100003 








BPL 


9S 


jfBR IF NO 




2141 


01 1630 


116663 


177777 


177776 




MOVB 


-1(SP),-2(R3) 


•IYFS--SET THE SIGN FOR 


TYPING 


2142 


011636 


105013 






9SI 


CLRB 


(P3) 


; jSET THE TEpfUNATOH 




2143 


01 1640 


012605 








MOV 


(SP)+,R5 


; J POP STACK INTO R5 




2144 


01 1642 


012603 








MOV 


(SP)+,R3 


;;POP STACK INTO R3 




2145 


011644 


012602 








MOV 


(SP)+,R2 


; jPOP STACK INTO R2 




21 46 


011646 


012601 








MOV 


(SP)+,R1 


;jPOP STACK IMTO Rl 




2147 


01 1650 


012600 








MOV 


{SP)+,RO 


;;POP STACK INTO PO 




2148 


01 1652 


104401 


011700 






TYPE 


rSDBLK 


;}NOW TYPE THE NUMBER 
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21 49 


01 1656 


016666 


000002 


000004 




MOV 


2(SP),4(SP) 


; fADJUST THE STACK 




2150 


01 1664 


012616 








MOV 


CSP)+, (SP) 






2151 


U11666 


000002 








RTI 




;> RETURN TO USER 




2152 


011670 


023420 






SDTBLl 


10000, 








2153 


011672 


001750 








1000, 








2154 


011674 


000144 








100, 








2155 


011676 


000012 








10. 








2156 


01 1700 


000004 






$DBLK: 


,BLKW 


4 






2157 




















2158 










.SBTTL 


TTY INPUT ROUTINE 






2159 




















2160 














2161 










.ENABL 


LSB 








2162 




















2163 










.DSABL 


LSB 








2164 




















2165 




















2166 










J 1 #»*#»»##»#*#*#*##♦«#«#»##»»♦##♦*#**»#*«**#♦♦#»*#»*#*♦#*«#♦*#*♦* 




2167 










j*THIS 


ROUTINE 


WILL INPUT A 


SINGLE CHARACTER FROM THE TTY 




2168 










f «-CALLl 










2169 










>* 


RDCHR 




n INPUT A SINGLE CHARACTER FROM THE 


TTV 


2170 










1* 


RETURN 


HERE 


;;CHARACTER IS ON THE STACK 




2171 










t* 






tjWiTH PARITY BIT STRIPPED OFF 




2172 










1 










2173 




















2174 


011710 


011646 






$RDCHR| 


MOV 


(SP),-(SP) 


; iPUSH DOWN THE PC 




2175 


0U712 


016666 


000004 


000002 




MOV 


4(SP)f 2(SP) 


If SAVE THE PS 




2176 


011720 


105777 


167220 




l$l 


TSTB 


e$TKS 


J WAIT FOR 




2177 


011724 


100375 








BPL 


16 


;>A CHARACTER 




2178 


011726 


117766 


167214 


000004 




MOVB 


i$TKB,4(SP) 


;>READ THE TTY 




2179 


011734 


042766 


177600 


000004 




BIC 


#"C<177>#4CSP) mGET RID OF JUNK IF ANY 




2180 


011742 


026627 


0OO004 


000023 




CMP 


4(SP)f #23 


Mis IT A CONTROL-S? 




2181 


011750 


001013 








BNE 


3$ 


nBRANCH IF NO 




2182 


011752 


105777 


167166 




281 


TSTB 


9$TKS 


tt^klT FOR A CHARACTER 




2183 


011756 


100375 








BPL 


2$ 


nLOOP UNTIL ITS THERE 




2184 


0U760 


117746 


167162 






MOVB 


P8TKB,-(SP) 


;jGET CHARACTER 




2185 


011764 


042716 


177600 






BIC 


#"C177,(SP) 


nMAKE IT 7-BIT ASCII 




2186 


011770 


022627 


000021 






CMP 


CSP)+,»21 


MiS IT A CONTROL-Q? 




2187 


0U774 


001366 








BNE 


26 


;>XF NOT DISCARD IT 




2188 


011776 


000750 








BR 


IS 


;|YES» RESUME 




2189 


012000 


026627 


000004 


000140 


3$l 


CMP 


4(SP)r#140 


;>IS IT UPPER CASE? 




2190 


OI20O6 


002407 








BLT 


4S 


; J BRANCH IF YES 




2191 


012010 


026627 


000004 


000175 




CMP 


4(SP),#175 


;jIS IT A SPECIAL CHAR? 




2192 


012016 


003003 








BGT 


4$ 


nBRANCH IF YES 




2193 


012020 


042766 


000040 


000004 




BIC 


#40#4(SP) 


;|MAKE IT UPPER CASE 




2194 


012026 


000002 






4$l 


RTI 




MGO BACK TO USER 




2195 










J f #»#####«###»»###«##»###*##»*###♦#»♦»####»##*«#»#»**♦#«##»##»### 




2196 










f«THIS 


ROUTINE 


WILL INPUT A 


STRING FROM THE TTY 




2197 










;«CALL| 










2198 










J* 


RDLIN 




fj INPUT A STRING FROM THE TTY 




2199 










,» 


RETURN 


HERE 


MADDRESS of FIRST CHARACTER WILL BE 


UN 


2200 










f» 






jfTERMINATOR WILL BE A BYTE OF ALL 


'S 


2201 




















2202 


012030 


010346 






gRDLINi 


MOV 


R3,-(SP) 


nSAVE R3 




2203 


012032 


005046 








CLR 


"(SP) 


jlCLEAR THE RUBOUT KEY 




2204 


012034 


012703 


012264 




ISI 


MOV 


#$TTYIN,R3 


1 jGET ADDRESS 





MAINDEC-1 1-DZDLC-B 



DLCB, 


Pll 06-MAy-77 


10104 


2205 


012040 


022703 


012274 


2206 


012044 


101 456 




2207 


01 2o46 


1 04406 




2208 


012050 


112613 




2209 


012052 


1 2271 3 


000177 


2210 


01 2o56 


001022 




221 1 


01 2o60 


005716 




2212 


01 2062 


001007 




2213 


012064 


1 12767 


000134 


2214 


012072 


1 04401 


012262 


2215 


012076 


012716 


177777 


2216 


012102 


005303 




2217 


012}04 


020327 


012264 


2218 


012110 


103434 




2219 


Ot2H2 


1 1 1 367 


000144 


2220 


012116 


104401 


012262 


2221 


01 2l 22 


000746 




2222 


012124 


005716 




2223 


012126 


001406 




2224 


Ul 21 30 


112767 


000134 


2225 


0121 36 


104401 


012262 


2226 


01 2t 42 


005016 




2227 


01 2l 44 


122713 


000025 


2228 


012150 


001003 




2229 


012152 


1 04401 


012274 


2230 


012156 


000726 




2231 


01 2l 60 


122713 


000022 


2232 


01 2l 64 


00101 1 




2233 


Ol2l66 


1 0501 3 




2234 


012170 


1 04401 


001253 


2235 


01 2l 74 


104401 


012264 


2236 


01 2200 


000717 




2237 


012202 


104401 


00125 2 


2238 


01 2206 


000712 




2239 


012210 


1 11367 


000046 


2240 


01 221 4 


104401 


012262 


2241 


012220 


122723 


000015 


2242 


012224 


001305 




2243 


012226 


105063 


177777 


2244 


012232 


104401 


001254 


2245 


012236 


005726 




2246 


012240 


01 2603 




2247 


01 2242 


01 1646 




224R 


012244 


016666 


000004 


2249 


01225 2 


012766 


012264 


2250 


012260 


000002 




22S1 


012262 


000 




2252 


012263 


000 




2253 


01 2264 


000<^10 




2254 


01 2274 


052536 


005015 


2255 


012301 


136 


006507 


2256 


012306 


005015 


053523 


2257 


012314 


020075 


000 


2258 


012317 


040 


047040 


2259 


012324 


036440 


000040 


2260 
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4S: 
381 



000002 
000004 



000 
000012 
020122 



9${ 

STTYIK': 
$CNTIiU| 
SCNTLGl 
SMSWRi 



CMP 


»8TTYIN+8,,R3 | 


jBUFFER FULL? 


BLOS 


48 J 


|BR IF YES 


RDCHR 




iGO R^AO OWE CHARACTER FROM THE TTY 


MOVB 


(SP)+,(R3) f 


>GET CHARACTER 


CMPB 


#177, (R3) 


fIS IT A RUBOUT 


BNE 


58 1 


fBR IF NO 


TST 


(SP) ; 


lis THIS THE FIRST RUBOUT? 


BNE 


68 ; 


fBR IF NO 


MOVB 


»'\#9S > 


rlYPE A BACK SLASH 


TYPE 


,9$ 




MOV 


»-l#(SP) ; 


>SET THE RUBOUT KEY 


DEC 


R3 ; 


jBACKUP BY ONE 


CMP 


R3,«$TTYIN f 


rSTACK EMPTY? 


BLO 


48 


jBR IF YES 


MOVB 


(R3)#9$ 


jSETUP TO TYPEOUT THE DELETED CHAR, 


TYPE 




»G0 TYPE 


BR 


28 


>G0 READ ANOTHER CHAR, 


TST 


(SP) 


fRUBOUT KEY SET? 


BEQ 


76 f 


>BR IF NO 


MOVB 


»'\#9$ J 


1 TYPE A BACK SLASH 


TYPE 


f 98 




CLR 


(SP) 


jCLEAR THE RUBOUT KEY 


CMPB 


»25#(R3) ; 


jIS CHARACTER A CTRL U? 


BNE 


88 ; 


jBR IF NO 


TYPE 


rSCNTLU ; 


J TYPE A CONTROL "U" 


BR 


18 ; 


iGO START OVER 


CMPB 


#22r(R3) ; 


MS CHARACTER A "-pw? 


BNE 


38 ; 


^BRANCH IF NO 


CLRB 


(R3) ; 


jCLEAR THE CHARACTER 


TYPE 


,SCRLr ; 


jTYPE A "CR" & "LF" 


TYPE 


#8TTYIN ; 


ITYPE THE INPUT STRING 


BR 


28 ; 


>G0 PICKUP ANOTHER CHACTER 


TYPE 


fSQUES 


jTYPE A '?' 


BR 


18 ; 


jCLEAR THE BUFFER AND LOOP 


MOVB 


(R3}#9S 


jECHO THE CHARACTER 


TYPE 


,9$ 




CMPB 


#15»(R3)+ 


jCHECK FOR RETURN 


BNE 


28 ; 


jLODP IF NOT RETURN 


CLRB 


-l(P3) ; 


jCLEAR RETURN (THE 15) 


TYPE 


#8LF ; 


jTYPE A LINE FEED 


TST 


{SP)+ ; 


jCLEAN RUBOUT KEY FROM THE STACK 


MOV 


(SP)+,R3 t 


fRCSTOPE H3 


MOV 


(SP),-(SP) 


» ADJUST THE STACK AND PUT ADDRESS OF THE 


MOV 


4(SP)#2(SP) ; 


J FIRST ASCII CHARACTER ON IT 


MOV 


»8TTYIN,4(SP) 




RTI 


? 


; RETURN 


.BYTE 


', 


jSTORAGE FOR ASCII CHAR, TO TYPE 


.BYTE 


; 


jTFRMINATOR 


,BLKB 


e. ; 


J RESERVE 8 BYTES FOR TTY INPUT 


.ASCIZ 


/"U/<15><12> ; 


^CONTROL "U" 


.A5CIZ 


/"G/<15><12> ; 


{CONTROL "G" 


.ASCIZ 


<1S><12>/SWR s / 




.ASCIZ 


/ NEW = / 
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2261 
2262 
2263 
2264 
2265 
2266 
2267 
2268 
2269 
2270 
2271 
2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 
2282 
2283 
2284 
2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
2316 



012330 
012332 
012340 
012342 
012344 
012346 
01 2350 
012352 
012356 
012360 
012362 
012364 
012366 
012372 
012374 
012400 
012402 
012404 
01 2406 
012410 
012412 
012414 
012416 
012422 
012424 
012426 
012430 
012434 
012440 
012442 
012444 
012446 
012450 
012452 
012454 
012456 
012460 
012464 
012466 



01 1646 
016666 
010046 
010146 
010246 
104407 
012600 
010067 
005001 
005002 
U2046 
001420 
122716 
003026 
122716 
002423 
006301 
006102 
006301 
006102 
006301 
006102 
042716 
062601 
000756 
005726 
010166 
010267 
012602 
01 2601 
012600 
000002 
005726 
105010 
104401 
000000 
104401 
000730 
000000 



.SBTTL READ AN OCTAL NUMBER FROM THE TTY 
I f 

f«THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
f»CHANGE IT TO BINARY, 

l*THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 
;*OCTAL DIGITS, IF AN ILLEGAL CHARACTER IS READ A "?» WILL BE TYPED 
f*FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST 
;*THEN BE RETYPED, THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN, 
>»CALLl 



000004 000002 



000060 
000067 



000012 
000026 



>* 


RDOCT 




;|READ AN OCTAL NUMBER 


1* 


RETURN 


HERE 


jfLOW ORDER BITS ARE ON TOP OF 


1* 






;>HIGH ORDER BITS ARE IN SHIOCT 


SRDOCTl 


MOV 


(SP),-(SP) 


{{PROVIDE SPACE FOR THE 




MOV 


4(SP),2CSP) 


n INPUT NUMBER 




HOV 


RO,-(SP) 


mPUSH RO ON STACK 




MOV 


R1,-(SP) 


nPUSH Rl ON STACK 




MOV 


R2,-(SP) 


;?PUSH R2 ON STACK 


181 


RDLIN 




MREAD an ASCIZ LINE 




MOV 


CSP)+,RO 


jjGET ADDRESS OF 1ST CHARACTER 




MOV 


R0,5S 


jiAND SAVE IT 




CLR 


Rl 


; jCLEAR DATA WORD 




CLR 


R2 




28! 


MOVB 


(RO)+,-(SP) 


nPICKUP THIS CHARACTER 




BEQ 


38 


jjIF ZERO GET OUT 




CMPB 


»'0# (SP) 


;>MAKE SURE THIS CHARACTER 




BGT 


48 


;|IS AN OCTAL DIGIT 




CMPB 


)»'7» (SP) 






BLT 


48 






ASL 


Rl 


;i»2 




POL 


R2 






ASL 


Rl 


?»*4 




ROL 


R2 






ASL 


Rl 


• >*8 




ROL 


R2 






BIC 


#-C7,(SP) 


; fSTRIP THE ASCII JUNK 




ADD 


(SP)+,R1 


;|ADD IN THIS DIGIT 




BR 


28 


? jLOOP 


381 


TST 


(SP) + 


J f CLEAN TERMINATOR FROM STACK 




MOV 


R1,12(SP) 


nSAVE THE RESULT 




MOV 


B2,$HI0CT 






MOV 


(SP)+,R2 


nPOP STACK INTO R2 




MOV 


{SP)+,R1 


nPOP STACK INTO Rl 




MOV 


(SP)+,RO 


UPOP STACK INTO BO 




RTI 




n RETURN 


481 


TST 


(SP) + 


nCLEAN PARTIAL FROM STACK 




CLRB 


(RO) 


jjSET A TERMINATOR 




TYPE 




jjTYPE UP THRU THE BAD CHAR, 


581 


.WORD 









TYPE 


#8QUES 


Jl"?" "CR" & "LF" 




BR 


IS 


nTRY AGAIN 


8HI0CTI 


.WORD 





nHIGH ORDER BITS GO HERE 


.SBTTL 


TYPE ROUTINE 
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2317 








f ) »«««««*#«««*««*«««#«««##««#««««««««*»«*»«»»»»»*«« »#««««««««»»«« 


2318 








»»R0UTINE TO 


TYPE ASCIZ MESSAGE 


, MESSAGE MUST TERMINATE WITH A BYTE, 


2319 








>»THE ROUTINE 


WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED, 


2320 








f #NOTEli 


SNULL CONTAINS 


THE CHARACTER TO BE USED AS THE FILLER CHARACTER 


2321 








|»N0TE2l 


$FILLS CONTAINS 


THE NUMBER OF FILLER CHARACTERS REQUIRED, 


2322 








|»N0TE3l 


SFILLC CONTAINS 


THE CHARACTER TQ FILL AFTER, 


2323 








f« 








2324 








?»CALLI 








2325 








)*n USING A 


TRAP INSTRUCTION 




2326 








>» 


TYPE 


, MESADR 


jjWESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


2327 








>»0R 








2328 








,» 


TYPE 






2329 








>* 


MESADR 




2330 








1* 








2331 
















2332 


012470 


105767 


166463 


STYPEl 


TSTB 


$TPFLG 


;MS THERE A TERMINAL? 


2333 


012474 


100002 






BPh 


1$ 


;jBR IF YES 


2334 


012476 


000000 






HALT 




JjHALT HERE IF NO TERMINAL 


2335 


01 2500 


000407 






BP 


3$ 


J ILEAVE 


2336 


012502 


010046 




l$l 


MOV 


RO,"CSP) 


fiSAVE RO 


2337 


012504 


017600 


000002 




MOV 


82CSP),R0 


;jGET ADDRESS OF ASCIZ STRING 


2338 


012510 


112046 




2$l 


MOVB 


(ROJ+z-CSP) 


; J PUSH CHARACTER TO BE TYPED ONTO STACK 


2339 


012512 


001005 






BNE 


4$ 


;jBR IF IT ISN'T THE TERMINATOR 


2340 


012514 


005726 






TST 


(SP) + 


jjIF TERMINATOR POP IT OFF THE STACK 


2341 


012516 


012600 




60$| 


MOV 


(SP)+,RO 


fl RESTORE RO 


2342 


012520 


062716 


000002 


3$l 


ADD 


#2, (SP) 


;jADJUST RETURN PC 


2343 


012524 


000002 






RTI 




^RETURN 


2344 


012525 


122716 


000011 


4S| 


CMPB 


#HT, CSP) 


jjBRANCH IF <HT> 


2345 


012532 


001430 






BEQ 


6S 




2346 


012534 


122716 


000200 




CMPB 


»CRLF, (SP) 


; jBPANCH IF NOT <CRLF> 


2347 


012540 


001006 






BNE 


56 




2348 


012542 


005726 






TST 


(SP) + 


;>POP <CR><LF> EOUIV 


2349 


012544 


104401 






TYPE 




; J TYPE A CR AND LF 


2350 


012546 


001253 






SCRLF 






2351 


012550 


105067 


000130 




CLRB 


SCHARCNT 


;;CLEAR CHARACTER COUNT 


2352 


012554 


00075S 






BP 


2S 


; jGET NEXT CHARACTER 


2353 


012556 


004767 


000056 


5Si 


JSR 


PC,$TYPEC 


;>G0 TYPE THIS CHARACTER 


2354 


012562 


126726 


166370 


6$: 


CMPB 


SFILLC» CSP) + 


;)1S IT TIME FOP FILLER CHARS,? 


2355 


01 2566 


001350 






BNE 


2$ 


j;IF NO GO GET f^EXT CHAP, 


2356 


012570 


016746 


166360 




MOV 


SNULL, -(SP) 


jjGFT » OF FILLER CHARS, NEEDED 


2357 














HAND THE NULL CHAR. 


2358 


012574 


105366 


000001 


7Sl 


DECB 


l(SP) 


fjDnts A NULL NEED TO BE TYPED? 


2359 


012600 


002770 






BI.T 


6$ 


;»BP IF NO--GO POP THE NULL OFF OF STACK 


2360 


012602 


004767 


000032 




JSR 


PCSTYPEC 


; >GU TYPE A NULL 


2361 


01 2606 


105367 


000072 




DECB 


SCHARCNT 


;;D0 NOT COUNT AS A COUNT 


2362 


012612 


000770 






BR 


7S 


;;LOOP 


2363 
















2364 








iHORIZONTAL TAB PROCESSOR 




2365 
















2366 


012614 


112716 


000040 


est 


WOVB 


#' »(SP) 


J f REPLACE TAB wITH SPACE 


2367 


012620 


004767 


000014 


9SI 


JSR 


PCSTYPEC 


fjTYPE A SPACE 


2368 


012624 


132767 


000007 


000052 


BITB 


#7, SCHARCNT 


;f BRANCH IF NOT AT 


2369 


01 2632 


001372 






BNE 


9$ 


;|TAB STOP 


2370 


01 2634 


005726 






TST 


(SP) + 


;,'POP SPACE OFF STACK 


2371 


012636 


000724 






BR 


2S 


; jGET NEXT CHARACTER 


2372 


01 2640 


105777 


166304 


STYPECl 


TSTB 


esTPs 


;>k«AIT UNTIL PRINTER IS READY 
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2373 


01 2644 


100375 








BPL 


STYPEC 




2374 


012646 


116677 


000002 


166276 




MOVB 


2CSP) »§$TPB 


JJLOAD CHAR TO BE T^PED INTO DATA KEG, 


2375 


012654 


122766 


000015 


000002 




CMPB 


#CR,2CSP) 


ffiS CHARACTER A CARRIAGE RETURN? 


2376 


012662 


001003 








BNE 


1$ 


jf BRANCH IF NO 


2377 


012664 


105067 


000014 






CLRB 


SCHARCNT 


JfYES— CLEAR CHARACTER COUNT 


2378 


012670 


()00406 








BR 


STYPEX 


mexit 


2379 


012672 


122766 


000012 


000002 


ISl 


CMPB 


#LF,2(SP) 


^jjlS CHARACTER A LINE FEED? 


2380 


012700 


001402 








BEO 


STYPEX 


jlBRANCH IF YES 


2381 


OI27O2 


105227 








INCB 


(PC) + 


?>COUNT THE CHARACTER 


2382 


012704 


000000 






SCHARCNTI .WORD 





JjCHARACTER COUNT STORAGE 


2383 


OI27O6 


000207 






STYPEXI 


BTS 


PC 




2384 


















2385 


















2386 










.SBTTL 


READ A 


DECIMAL NUMBER 


FROM THE TTY 


2387 


















2388 










; 1 #»##»*»###»###««*»»»»«##»♦#»«♦*♦*««####*###»♦###*♦» *«»#♦#♦#♦#*♦ 


2389 










l«THIS 


ROUTINE 


WILL READ A DECIMAL (ASCII) NUMBER FROM THE TTY AND 


2390 










l»CHANGE IT TO 


BINARY, IF TOO 


MANY CHARACTERS OR ANY ILLEGAL CHARACTERS 


2391 










|«ARE BEAD A " 


?" FOLLOWED BY 


A CARRIAGE RETURN-LINE FEED WILL BE TYPED, 


2392 










f«THE COMPLETE 


NUMBER MUST BE 


RETYPED, THE INPUT IS TERMINATED BY THE 


2393 










l*USER 


TYPING 


A CARRIAGE RETURN, THE RANGE OF THE INPUT NUMBER IS 


2394 










l»POSITIVE 32767 TO NEGATIVE 


3^768, 


2395 










f *CALH 








2396 










t* 


RDDEC 




;jREAD A DECIMAL NUMBER 


2397 










»* 


RETURN 


HERE 


IJNUMBER IS ON TOP OF THE STACK 


2398 










; 








2399 


















2400 


OI27IO 


011646 






SRDDECI 


MOV 


(SP),»(SP) 


IfPPOVIDE SPACE FOR 


2401 


012712 


016666 


000004 


000002 




MOV 


4(SP),2(SP) 


nTHE INPUT NUMBER 


2402 


012720 


010046 








MOV 


RO,«CSP) 


jfPUSH RO ON STACK 


2403 


012722 


010146 








MOV 


R1,«(SP) 


;|PUSH Rl ON STACK 


2404 


012724 


010246 








MOV 


B2,-(SP) 


fjPUSH R2 ON STACK 


2405 


012726 


104407 






ISI 


RDLIN 




jfREAD AN ASCIZ LINE 


2406 


012730 


012600 








MOV 


(SP)+,RO 


nADDRESS OF 1ST CHAR, 


2407 


012732 


010067 


000120 






MOV 


R0,6$ 


jlSAVE INCASE OF BAD INPUT 


2408 


012736 


005046 








CLR 


"(SP) 


; fCLEAR DATA WORD 


2409 


012740 


005002 








CLR 


R2 


nSIGN SET POSITIVE 


2410 


012742 


122710 


000055 






CMPB 


#'-, (RO) 


jfSEE IF A MINUS SIGN WAS TYPED 


2411 


012746 


001001 








BNE 


2$ 


J JBR IF NO MINUS SIGN 


2412 


012750 


112002 








MOVB 


(P0)+,R2 


; ISAVE FOP LATER USE 


2413 


012752 


112001 






2$l 


MOVB 


(R0)+#B1 


nPICKUP THIS CHARACTER 


2414 


012754 


001424 








BEQ 


38 


IjGET OUT IF ZERO 


2415 


012756 


122701 


000060 






CMPB 


»'0#R1 


nMAKE SURE THIS CHARACTER 


2416 


012762 


003032 








BGT 


5$ 


Mis A DIGIT BETWEEN & 9 


2417 


012764 


122701 


000071 






CMPB 


#'9,R1 




2418 


012770 


002427 








BLT 


5S 




2419 


012772 


032716 


170000 






BIT 


fC7777»(SP) 


jjDON'T LET NUMBER GET TO BIG 


2420 


012776 


001024 








BNE 


5$ 


nBR IF NUMBER WOULD OVERFLOW 


2421 


013000 


006316 








ASL 


(SP) 


n*2 


2422 


013002 


011646 








MOV 


(5P),-(SP) 


jfSAVE FOR LATER 


2423 


013004 


006316 








ASL 


(SP) 


n*4 


2424 


013006 


006316 








ASL 


(SP) 


n»8. 


2429 


013010 


062616 








ADD 


(SP)*, (SP) 


; i*io. 


2426 


013012 


102416 








BVS 


5$ 


nOVERFLOW ISN'T ALLOWED 


2427 


013014 


162701 


000060 






SUB 


»'0f Rl 


jfSTRIP AWAY THE ASCII JUNK 


2428 


013020 


060116 








ADD 


R1,(SP) 


flADD IN THIS DIGIT 
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24?9 


013022 


102412 


2430 


013024 


000752 


2431 


013026 


005702 


2432 


013030 


001401 


2433 


013032 


00S416 


2434 


013034 


012666 


2435 


01 3040 


012602 


2436 


0130*2 


012601 


2437 


01 3o44 


012600 


2438 


01 3o46 


000002 


2439 






2440 


01 3050 


005726 


2441 


013052 


105010 


2442 


01 3o54 


104401 


2443 


01 3o56 


000000 


2444 


01 3060 


10440] 


244*5 


01 3064 


000720 


2446 






2447 






244B 






2449 






2450 






2451 






2452 






2453 






2454 






2455 


013066 


010046 


2456 


013070 


016600 


2457 


Ol3o74 


005740 


2458 


013076 


111000 


2459 


01 3l 00 


006300 


2460 


01 3l02 


016000 


2461 


CI 3l06 


00020O 


2462 






2463 






2464 






2465 






2466 


013110 


01 1646 


2467 


013112 


01 6666 


2468 


01 3l20 


000002 


2469 






2470 






247 1 






2472 






2473 






2474 






2475 






2476 






2477 


013122 


013110 


2478 


013124 


012470 


2479 


013126 


011262 


2480 


0131 30 


011236 


2481 


013132 


011276 


2482 


0131 34 


011464 


2483 






2484 







000004 000002 



3S| 

4S: 



BVS 


5S 


J 1 OVERFLOW ISN'T ALLOWFD 


BR 


2$ 


nLoop 


TST 


R2 


;»CHECK IF NUMBfSR IS NEG 


BEQ 


48 


ffBR IF NO 


NEG 


(SP) 


}f YES— NEGATE THE NUMBER 


MOV 


(SP)+,12(SP) 


; »SAVE THE RESULT 


MOV 


CSP)+,P2 


jfPOP STACK INTO R2 


MOV 


CSP)+,R1 


jlPOP STACK INTO Rl 


MOV 


(SP)+,RO 


;>POP STACK INTO RO 


PTI 




nPETURN 


TST 


(SP) + 


IJCLEAN PARTIAL NUMBER FROM STACK 


CLRB 


(RO) 


fjSET A TERMIi^ATOP 


TYPE 




jjTYPE THE INPUT UP TO BAD CHAR, 


.WORD 





nPOINTEP GOES HERE 


TYPE 


,$QUES 


n"?" "CR" &"LF" 


BR 


1$ 


Ml'RY AGAIN 



.SBTTL TRAP DECODER 

; f ««»«*««*««»«««««»««**««»«« »«««««#«««««««#««» 

•«THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 
j»AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
j»Or THE PESIRED ROUTINE, THEN USING THE ADDRESS OBTAINED IT WILL 
y»GQ TO THAT ROUTINE, 

STRAPl 



MOV 


RO,-(SP) 


tSAVE RO 


MOV 


2(SP),P0 


jGET TRAP ADDRESS 


TST 


-(RO) 


jBACKUP BY 2 


MOVB 


(R0)#R0 


iGET RIGHT BYTE OF TRAP 


ASL 


RO 


JPOSITION FOR INDEXING 


MOV 


$TRPAD(RO),RO 


MNDEX TO TABLE 


RTS 


RO 


jGQ TO ROUTI?^ 



I»THIS IS USE TO HANDLE THE "GETPRI" MACRO 



MOV 
MOV 
RTl 



(SP),-(SP) 
4(SP),2(SP) 



ffHOVE THE PC OOi^N 
; J MOVE THE PSW DOwN 
; J RESTORE THi PSw 



.SBTTL TRAP TABLE 



l*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
j»BY THE "TRAP" INSTRUCTION, 



ROUTINE 

.WORD 

STYPE 

STYPOC 

STYPOS 

STYPON 

$TYPDS 



STRAP2 
f fCALLaTYPE 
I jCALLsTYPOC 
I »CALL=TYPOS 
J jCALLsTYPON 
I iCALLaTYPDS 



TRAP+1 (104401 ) 
TRAP+2(104402) 
TRAP+3( 104403) 
TRAP+4( 104404) 
TRAP+5(104405) 



TTY TYPEUUT ROUTINE 

TYPE OCTAL NUMBER (WI'IH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LbADlNG ZEROS) 
TYPlj, OCTAL NUMBER (AS PER LAST CALL) 
TYPf DECIMAL NUMBER (wlTH SIGN) 
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2485 


01 3136 


011710 




2486 


013140 


012030 




2487 


013142 


012330 




2488 


01 3144 


012710 




2489 








2490 








2491 








2492 








2493 








2494 


01 3146 


012737 


013312 


2495 


013154 


012737 


000340 


2496 


013162 


010046 




2497 


013164 


010146 




2498 


013166 


010246 




2499 


013170 


010346 




2500 


013172 


010446 




2501 


013174 


010546 




2502 


013176 


017746 


165736 


2503 


013202 


010667 


0001 10 


2504 


013206 


012737 


013220 


2505 


01 3214 


000000 




2506 


013216 


000776 




2507 








2508 








2509 








2510 


013220 


012737 


01 3312 


2511 


013226 


016706 


000064 


2512 


013232 


005067 


000060 


2513 


01 3236 


005267 


000054 


2514 


013242 


001375 




2515 


01 3244 


012677 


165670 


2516 


013250 


012605 




2517 


013252 


012604 




2518 


013254 


012603 




2519 


013256 


012602 




2520 


013260 


012601 




2521 


013262 


012600 




2522 


013264 


012737 


013146 


2523 


013272 


012737 


000340 


2524 


013300 


104401 




2525 


013302 


013320 




2526 


013304 


012716 




2527 


01 3306 


001772 




2528 


013310 


000002 




2529 


013312 


000000 




2530 


013314 


000776 




2531 


013316 


000000 




2532 


013320 


005015 


047520 


2533 


013326 


000122 




2534 








2535 








2536 








2537 








2538 








2539 








2540 


013330 


105777 


166060 



SRDCHR 

spdlin 

SRDOCT 

spddec 



J jcallsrdchr 

nCALLsRDLlN 
I jCALLsRDOCT 
J jCALLsRDDEC 



TRAP+6(104406) 
TRAP+7( 104407) 
TRAP+10(104410) 
TRAP+11(104411) 



TTY TYPEIN CHARACTER ROUTINE 
TTY TYPEIN STRING ROUTINE 
READ AN OCTAL NUMBER FROM TTY 
READ A DECIMAL NUMBER FROM TTY 



.SBTTL POWER DOWN AND UP ROUTINES 



; } »»*»««««»«««»««»«»«««««#»««««««»»«««««««*««««»«»#««««»«*«««»««« 

f POWER DOWN ROUTINE 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

HALT 

BR 



«SILLUP,(a#PWRVEC 
»340,?iPWRVEC+2 
RO,-CSP) 
R1,-(SP) 
R2,-(SP) 
R3,-(SP) 
R4,-(SP) 
R5,-CSP) 
?SWR,-(SP) 
SP,SSAVR6 



fjSET FOR FAST UP 
|PRlOi7 

IPUSH RO ON STACK 

»PUSH Ri ON STACK 

J PUSH R2 ON STACK 

fPUSH R3 ON STACK 

IPUSH R4 ON STACK 

jPUSH R5 ON STACK 

JPUSH 9SWR ON STACK 

; f SAVE SP 



#SPWRUP#e»PWRVEC mSET up VECTOR 
,-2 jiHANG UP 



fPOWER UP ROUTINE 



000024 SPWRUPJ 



#SILLUP,§«PWRVEC >}SET FOR FAST DOWN 



$PWRMGi 



$ILLUP| 



$SAVR6I 
$POWER| 



MOV 

MOV 

CLR 

INC 

BNE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TYPE 

.WORD 

MOV 

.WORD 

RTI 

HALT 

BR 



.ASCIZ <15><12>''P0WER» 



$SAVR6f SP 
$SAVR6 
$SAVR6 
1$ 

(SP)+,@SWR 

(SPJ+^RS 

(SP)+,R4 

(SP)+,R3 

(SP)+,R2 

(SP)4.,Rl 

(SP)+,R0 

»$PWPDN,&#PWRVEC 
S340,$»PWPVEC+2 

SPOWER 
(PC)+f (SP) 
RESTRT 



JJGET SP 
jWAIT LOOP FOR THE TTY 
;WAIT FOR THE INC 
;0F WORD 

fPOP STACK INTO 0SWR 

fPOP STACK INTO R5 

»POP STACK INTO R4 

IPOP STACK INTO P3 

»POP STACK INTO R2 

fPDP STACK INTO Rl 

fPOP STACK INTO RO 

nSET UP THE POWER DOWN VECTOR 

f PRI0I7 

REPORT THE POWER FAILURE 
rPOWER FAIL MESSAGE POINTER 
IRESTART AT RESfRT 
I RESTART ADDRESS 

I THE POWER UP SEQUENCE WAS STARTED 
J BEFORE THE POWER DOWN WAS COMPLETE 
IPUT THE SP HERE 



1 1 »»««««*«•«*«««#«»«»««••«««««««»««#«««»««#«»««*«««««*««»«»«««»•• 

I TRANSMIT INTERRUPT SERVICE ROUTINE FOR 256, BYTE BLOCK TRANSFERS 
) I ««»»»««««««»*#««*«#»«««•*»»««««#«»««#«#««»«*««»«««*««««««»«««*« 

XINTI TSTB 9DLXCSR ; "READY" SET ?? 
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2541 


013334 


100416 








BMI 


1$ 


;BP IF YES 


2542 


01 3336 


013767 


177776 


165636 




MOV 


#»PSW# STMPO 


;SAVE THE ERROR PSW 


2543 


013344 


010667 


165626 






MOV 


SP,SREG6 


jSAVE THE ERROR STACK POINTER 


2544 


013350 


005167 


166046 






COM 


XFLGO 


;S£T XMII SOFTWARE ERROR FLAG 


2545 


013354 


042777 


000100 


166026 




BIC 


»100,@DLRCSR 


jTUBN OFF THE INTERRUPT ENABLES 


2546 


013362 


042777 


000100 


166024 




8IC 


#lOO,eDLXCSR 




2547 


013370 


000411 








BR 


2$ 


;G0 TO EXIT 


254B 


013372 


022767 


021660 


166032 


l$i 


CMP 


«DLBUF1,0PTR 


;XMITTED 256. BYTES YET ?? 


2549 


013400 


001405 








BEQ 


28 


J BR IF YES 


2550 


01 3402 


117777 


166024 


166006 




MOVB 


iOPTR,iDLXDBR 


;OUTPUT A BYTE 


2551 


013410 


005267 


166016 






INC 


OPTR 


;UPDATE BUFFER POINTER 


2552 


013414 


000002 






2$l 


RTI 




JRETURN TO MAINLINE TEST 


2553 


















2554 










1 > »•»##«######»#»»«*##»#♦#»♦#»##»#**«»#♦»»###»*######»#»#»##*»### 


2555 










jPECEIVER INTERRUPT SERVICE ROUTINE FOP 256, BYTE BLOCK TRANSFERS 


2556 










1 J ########»###»*###»#»###»####»#»»*##»»#»•»»#»«♦♦##♦♦##•»**♦####♦ 


2557 


















2558 


013416 


105777 


165766 




RINTI 


TSTB 


?DLRCSR j^DONE" 


SET ?? 


2559 


013422 


100410 








BMI 


1$ 


;BH IF YES 


2560 


01 3424 


01 3767 


177776 


165550 




MOV 


§#PSW,8TMP0 


jSAVE THE ERROR PSw 


2561 


013432 


010667 


165540 






MOV 


SP,$REG6 


iSAVR THE ERROR STACK POINTER 


2562 


013436 


005167 


165762 






COM 


RFLGO 


;SET HARD RCVR ERROR FLAG 


2563 


013442 


000415 








BR 


28 


fGO EXIT 


2564 


013444 


005777 


165742 




isi 


TST 


9DLRDBR 


jANY SOFT ERRORS ?? 


2565 


013450 


100021 








BPL 


38 


;BR IF NOT 


2566 


013452 


013767 


177776 


165522 




MOV 


pi*PSW, STMPO 


;SAVE THE ERROR PSW 


2567 


013460 


010667 


165512 






MOV 


SP,$REG6 


jSAVE THE ERROR STACK POINTER 


2568 


013464 


017767 


165722 


16551 2 




MOV 


iDLRDBR,$TMPl 


jSAVE THE ERROR REGISTER IN TMPl 


2569 


01 3472 


005167 


1 65730 






COM 


PFLGl 


;SET THE SOFT ERROR FLAG 


2570 


01 3476 


042777 


000100 


165710 


2Sl 


BIC 


»100,faDLXCSR 


jTURN OFF THE INTR, ENABLES 


2571 


013504 


042777 


000100 


16567b 




PIC 


»100r9DLRCSR 




2572 


013512 


000411 








BP 


4$ 


;G0 TO EXIT 


2573 


013514 


022767 


022260 


165712 


351 


CMP 


#BUFEND, IPTP 


;RECEIVED 256, BYTES YET ?? 


2574 


013522 


001405 








BEQ 


48 


;BR IF YES 


2575 


013524 


117777 


165662 


1 65702 




MOVB 


&DLRDBR,iIPTH 


jINPUT A BYTE FROM THE DLU 


2576 


013532 


005267 


165676 






INC 


IPTR 


jUPDATE BUFFER POINIEP 


2577 


013536 


000002 






4$: 


PTI 




jRETURN TO MAINLINE TEST 


2578 


















2579 










fTHE FOLLOWING 


ROUTINE IS USED 


BY THE USER UTILITY PROGRAMS TO WAIT 


2580 










jA SPECIFIED NO 


, OF MILLISECONDS BETWEEN CHARACTER TRANSFERS 


2581 
2582 


01 3540 


017667 


000000 


000034 


DELAYl 


MOV 


§(P6),DELCNT 


•GET THE NO, OF MSEC, DELAY COUNT 


2583 
















jTYPED IN BY USER 


2584 


01 3546 


062716 


000002 






ADD 


#2, (R6) 


;SEi UP THIS ROUTINE'S EXIT ADDRESS 


2585 


013552 




A A A n '3 A 






TST 


DELCNT 


;IS THE DELAV COUNT ZERO? 


2586 


013556 


001410 








BEQ 


38 


;BRANCH IF YES 


2587 


01 3560 


012746 


000226 




ISl 


MOV 


#226#-{SP) 


;PUSH A 1 MSEC, COUNT TO STACK 


2588 


013564 


005316 






2S| 


DEC 


(SP) 


jDECREMENT THE 1 MSEC, COUNT BY 1 


2589 


013566 


001376 








BNE 


28 


;BRANCH IF 1 MSEC. ^JOT EATEN 


2590 
















jAWAY YET 


2591 


013570 


005726 








TST 


(SP) + 


;RESET STACK AFTER 1 MSEC. TIME UP 


2592 


01 3572 


005367 


000004 






DEC 


DELCNT 


jDECREMENT THE TOTAL NO, OF 


2593 
















jMSECS, COUNT 


2594 


01 3576 


001370 








BNE 


IS 


;BRANCH IF WE HAVE '^ORE MSECS, 


2595 
















;T0 WAIT 


2596 


013600 


000207 






381 


RTS 


PC 


jGO BACK TO REISSUE A CHARACTER 
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DELCNTI .WORD 



2597 


01 3602 


000000 




2598 








2599 








2600 








2601 








2602 


013604 


016700 


000062 


2603 


013610 


006100 




2604 


013612 


006100 




2605 


013614 


066700 


000054 


2606 


013620 


010067 


000046 


2607 


013624 


006100 




2608 


013626 


006100 




2609 


013630 


066700 


000040 


2610 


013634 


006100 




2611 


013636 


006100 




2612 


013640 


010067 


000030 


2613 


013644 


016700 


000022 


2614 


013650 


046700 


165432 


2615 








2616 








2617 


013654 


001405 




2618 


013656 


010067 


000004 


2619 


013662 


004767. 


177652 


2620 


013666 


000000 




2621 


013670 


000207 




2622 


013672 


001233 




2623 


013674 


007622 




2624 








2625 








2626 








2627 


013676 


016767 


165306 


2628 








2629 


013704 


162767 


000004 


2630 








2631 


013712 


000403 




2632 








2633 


013714 


016767 


165270 


2634 








2635 


013722 


005067 


165270 


2636 


013726 


005267 


165264 


2637 


013732 


001405 




2638 








2639 








2640 


013734 


105777 


000010 


2641 


013740 


100372 




2642 


013742 


062716 


000006 


2643 








2644 


013746 


000207 




2645 


013750 


000000 




2646 








2647 








2648 








2649 








2650 


013752 


016767 


165236 


2651 








2652 


013760 


016767 


165226 



000036 



;THE NO, OF MSECS, NEEDED TO 
;TRANSPTRE RESIDES HERE 
>THE FOLLOWING ROUTINE IS USED BY USER PROGRAM ))4 AND WILL ALLOW 
>A RANDOM NUMBER OF MILLISECONDS BEFORE TRANSMISSION OF CHARACTER 
J 

STALLI MOV NUMONEfRO ;GET THE LOW LIMIT 

j^ULTIPLY BY 4 



MOV 
ROL 
POL 
ADD 
MOV 
ROL 
ROL 
ADO 
ROL 
ROL 
MOV 
MOV 
BIC 



NUMONEfRO 
RO 
RO 

NUMTWO,RO 

ROfNUMONE 

RO 

RO 

NUMTWOfRO 

RO 

RO 

ROfNUMTWO 
NUMONEfRO 
STLMSKfRO 



;ADD IN THE HIGH LIMIT 
fSTORE THIS AS WEw LOW LIMIT 
{MULTIPLY Nfew LOW LIMIT BY 4 

•ADD IN THE HIGH LI^IT 
{MULTIPLY BY 4 AGAI^ 



{STORE THIS AS ^JEW HIGH LIMIT 
{SAVE THE RANDOMLY GENERATED NO, 
{STRIP ALL BUT 1ST 5 BITS SO AS 
;NOT TO ALLOW THE STALL TO BE TOO 
{LARGE 

BEQ 28 {BRANCH IF RESULT WAS ZERO 

MOV ROfl$ {SET STALL TIME FOR DELAY ROUTINE 

JSR PC, DELAY -{GU OFF TO STALL 

181 .WORD {THIS IS WHERE STALL TIME RESIDES 

281 RTS PC {RETURN TO ISSUE CHARACTER 

NUMONEI 1233 {LOW LIMIT FOR RANDOM NO, 

NUMTWOl 7622 {HIGH LIMIT FOR RANDOM NO, 

{THE FOLLOWING ROUTINE CHECKS THE 'DONE' BIT FOR BOTH THE RECEIVER 
{AND TRANSMITTER, THIS ROUTINE IS USED BY PROGRAM #4 



000044 TIMERXI MOV 



SUB 



BR 



000026 TIMETXI MOV 



{GET THE TRANSMITTER CONTROL 
{STATUS REGISTER ADDRESS 
{FORM THE RECEIVER CONTROL 
{STATUS REGISTER ADDRESS 
{GO TO TIME OUT THE RECEIVERS' 
{DONE BIT 

{GET THE TRANSMITTER CONTROL 
{STATUS REGISTER ADDRESS 
{INITIALIZE A TIME COUNT 
{INCREMENT THE TIME COUNT 
{BRANCH IF TIME COUNTER OVERFLOWED 
{INDICATING DONE BIT NEVER SET 
{WITH PLENTY OF TIME ELAPSED 
{SEE IF DONE BIT IS SET YET 
{WAIT SOME MORE IF IT ISN'T 
{DONE BIT IS SET - SET UP EXIT 
{RETURN TO SKIP ERROR REPORT 
{RETURN TO PROGRAM #4 
{THIS IS WHERE THE RCSR OR XCSR 
{ADDRESS RESIDES 

{THIS ROUTINE IS USED BY PROGRAMS #4 & 5, AND WILL CHECK FOR CORRECT 
{EXPECTED AND RECEIVED DATA, IN ADDITION TO ANY ERROR BITS 



TCONTI 
181 



281 

DUTI 



CLR 
INC 
BEQ 



TSTB 

BPL 

ADD 

RTS 
.WORD 



$TMP3,DUT 

#4,DUT 

TCONT 

8TMP3,DUT 

8TMP6 
$TMP6 
28' 



PDUT 
18 

#6,9R6 

PC 





165236 DATCHKi MOV 
165200 MOV 



STMP5,8TMP6 {GET THE CONTENTS OF THE RECEIVER 

{BUFFER 

|TMP4,SREG2 {STORE THE ADDRESS OF THE RECEIVER 
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2653 
2654 
2655 
2656 
2657 
2658 
2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
2667 
2668 
2669 
2670 
2671 
2672 
2673 
2674 
2675 
2676 
2677 

















J DATA BUFFER 


013766 


016767 


165174 


165170 




MOV 


SREG2,$REG1 


;GET THE ADDRESS OF THE RECEIVER . 
jDATA BUFFER 


013774 


162767 


000002 


165162 




SUB 


i2,$REGl 


jFORM THE ADDRESS OF THE RECEIVER 
;STATUS REGISTER FROM IT 


01 4o02 


016767 


165206 


165160 




MOV 


$THP5,$REG3 


•STORE THE CONTENTS OF THE RECEIVER 
;DATA BUFFER 


01401 


032767 


170000 


165200 




BIT 


#170000, $TMP6 


;ARE ANY ERROR BITS SET? 


014016 


001013 








BNE 


1$ 


jBPANCH IF YES 


014020 


004767 


000720 






JSB 


PC,UpMASK 


•GO TO MASK OFF BITS AS A FUNCTION OF 
^CHARACTER LENGTH( 5, f> , 1, OR 8 BITS) 


014024 


026767 


165164 


165200 




CMP 


$TMP5,STMP14 


jWAS RECEIVED CHARACTER THE 
;SAME AS THE ONE TRANSMITTED? 


014032 


001406 








BEQ 


2S 


{BRANCH IF YES 


01 4034 


016767 


165172 


165130 




MOV 


$TMP14# $REG4 


f STORE WHAT THE CONTENTS OF THE 
jRECEIVER DATA BUFFER SHOULD BE 


014042 


J 04010 








ERROR 


+ 10 


;DATA RECEIVED i»iRONGt 


01 4044 


000401 








BR 


2$ 


jGET SET TO RETURN AFTER ERROR REPORT 


014046 


104007 








ERROR 


+ 7 


jERROR 81T/S SET FROM TRANSMISSION 


014050 


000207 






2$i 


RTS 


PC 


;RETURN TH PROGRAM #4 



> > ««««*««*«»««««««««»«»»»«««««#««*««»»«»««*«»*«««»«««««»*««»*»««« 

> SUBROUTINE TO SETUP ERROR INFORMATION FOR ERROR MESSAGES 



MAINDEC-ll-nZDLC-B 



MACYl I 30(1046) 12-JUL-77 10|02 PAGE 54 



DZDLCB, 


,pn 06 


i-MAY-77 


10104 




POWER DOWN AND 


UP ROUTINES 






2678 


014052 


013767 


177776 


165122 


SUER2I MOV 


§#PSW,STMPO 


;SAVE 


THE tPSWJ 


2679 


014060 


016701 


165324 




MOV 


DLRCSR,R1 


J PUT 


DEVADH IN Rl 


2680 


014064 


011203 






MOV 


(R2),R3 


;PUT 


WAS INFO IN R3 


2681 


01 4o66 


010667 


165104 




MOV 


SP,$REG6 


;SAVE 


THE CSPJ 


2682 


014072 


062767 


000002 


165076 


ADD 


#2,$REG6 


;CORRECT FOP CALLING JSR 


2683 


0141 00 


116700 


164776 




SUERRl! MOVB 


STSTNM, RO 


;PUT 


TEST NO, IM RO 


2684 


01 4104 


010067 


165052 




MOV 


RO,SREGO 


jSAVE 


[RO] THRU [R4J 


2685 


014110 


010167 


165050 




MOV 


R1,$REG1 






2686 


014114 


010267 


165046 




MOV 


R2,SREG2 






2687 


01 4l20 


010367 


165044 




MOV 


R3,SREG3 






2688 


014124 


010467 


165042 




MOV 


R4,SREG4 






2689 


0141 30 


000207 






RTS 


PC 


{RETURN TO CALLING TEST ' 


2690 


















2691 


0141 32 


013767 


177776 


165042 


SUERTll MOV 


9#PSW,STMP0 




{SAVE THE tPSWJ 


2692 


0141 40 


116700 


164736 




MOVB 


STSTNM, PO 




{PUT TEST NO, IN RO 


2693 


014144 


016701 


165240 




MOV 


DLRCSR»R1 




{PUT DEVADR IN Rl 


2694 


014150 


010067 


165006 




MOV 


RO,$REGO 




{SAVE [ROl 


2695 


014154 


010167 


165004 




MOV 


R1,$REG1 




{SAVE CRIJ 


2696 


014160 


013767 


177776 


165016 


SUERT2I MOV 


@»PSW,$TMP1 




{SAVE THE CPSW] 


2697 


01 4l66 


010667 


165004 




MOV 


SP,$REG6 




{SAVE THE tSPl 


2698 


014172 


062767 


000002 


164776 


ADD 


«2,$REG6 




{CORRECT FOR CALLING JSR 


2699 


01 4200 


010267 


164762 




MOV 


R2,$REG2 




{SAVE CR2J 


2700 


014204 


000207 






RTS 


PC 




{RETURN 


2701 


















2702 










fSUBROUTINE TO 


SETUP VECTORS 


FOR 256, 


BYTE BLOCK TRANSFER TESTS 


2703 


















2704 


014206 


016705 


165206 




SUVECI MOV 


DLVECT,R5 


J GET 


FIRST VECTOR ADDRESS 


2705 


014212 


012725 


013416 




MOV 


»RINT, (R55+ 


{SET 


UP RCVR VECTOR 


2706 


014216 


016725 


165060 




MOV 


DLPRI, (R5)+ 






2707 


014222 


012725 


013330 




MOV 


#XINT, (R5)+ 


;SET 


UP XMIT VECTOR 


2708 


014226 


016715 


165050 




MOV 


DLPRI, CP5) 






2709 


01 4232 


000207 






RTS 


PC 


{RETURN TO CALLER 


2710 


















2711 










fSUBROUTINE TO 


PRIME DATA BUFFERS AND 


DEVICE FOR 256, BYTE TRANSFER 


2712 


















2713 


014234 


005077 


165154 




PRIME! CLR 


§DLXCSR 


{CLEAR XMIT AND RCVR CSR'S 


2714 


014540 


005077 


165144 




CLB 


9DLRCSR 






2715 


014244 


005067 


165152 




CLR 


XFLGO 


{INITIALIZE ERROR FLAGS 


2716 


014250 


005067 


165150 




CLR 


RFLGO 






2717 


014254 


005067 


165146 




CLR 


PFLGl 






2718 


014260 


012767 


021260 


165144 


MOV 


#DLBUrO,QPTR 


{SET 


UP OUTPUT POINTER 


2719 


014266 


012767 


021660 


165140 


MOV 


#DLBUFI,IPTP 


{SET 


UP INPUT POINTER 


2720 


014274 


004767 


000044 




JSR 


PC,CLDLBF 


{GO CLEAR THE BUFFERS 


2721 


014300 


004777 


165132 




JSR 


PC,9LD0UT 


{GO SET UP THE PATTERN 


2722 


014304 


005067 


165130 




CLR 


TIMRI 


f INIT 


TIMEOUT COUNTERS 


2723 


01 43i0 


012767 


000036 


165124 


MOV 


#30,»TIMR2 






2724 


014316 


005777 


1 65070 




TST 


0DLRDBR 


{FLUSH "DONE" BIT IN RCVR CSR 


2725 


014322 


005777 


163064 




TST 


9DLRDBR 






2726 


014326 


052777 


000100 


163054 


BIS 


#100,eiDLRCSR 


{ENABLE RCVR INTR, 


2727 


014334 


052777 


000104 


165052 


BIS 


#1O4,0DLXCSR 


{ENABLE XMIT INTR, AND MAINT MODE 


2728 


014342 


000207 






RTS 


PC 






2729 


















2730 


















2731 


















2732 


















2733 










fTHIS ROUTINE 


IS CALLED TO CLEAR THE 


INPUT AND OUTPUT BUFFERS 
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ZDLCB, 


,P1 1 06 


.-MAy«77 


10104 




POWER DOWN AND 


1 UP ROUTINES 




2714 
















2735 


014344 


012705 


021260 




CLDLBFJ MOV 


»DLBUF0,R5 


;R5 POINTS TO BEGINNING OF BUFFER AREA 


2736 


014350 


005025 






l$l CLB 


CP5) + 


jCLEAR A WORD 


2737 


014352 


022705 


022260 




CMP 


»BUrEND,R5 


jDONE ALL WORDS ?? 


2738 


014356 


001374 






BNE 


IS 


jBR IF NOT 


2739 


014360 


000207 






RTS 


PC 


; RETURN TO CALLER 


2740 
















2741 










jTHIS ROUTINE 


IS CALLED TO SET UP THE NULL»DEL-NULL PATTERN 


2742 
















2743 


014362 


012705 


021260 




LDOUTll MOV 


«DLBUF0,R5 


;R5 POINTS TO OUTPUT BUFFER 


2744 


014366 


105025 






1$I CLBB 


(R5) + 


;MOVE A NULL CHAR 


2745 


014370 


112725 


000377 




MOVB 


»377,CR5)+ 


jMOV A DEL CHAR 


2746 


014374 


022705 


021660 




CMP 


#DLBUFI,R5 


fALL DONE ?? 


2747 


014400 


001372 






BNE 


18 


;BP IF NOT 


2748 


014402 


000207 






PTS 


PC 


{RETURN TO CALLER 


2749 
















2750 










fTHIS ROUTINE 


IS USED TO LOAD 


AN ASCENDING BINARY COUNT PATTERN 


2751 
















2752 


014404 


005005 






LDOUT25 CLR 


R5 


;START v«ITH 000 


2753 


OJ 4406 


110565 


021260 




IS J MOVB 


R5,DLBUFO(R5) 


;LQAD ONE BYTF 


2754 


014412 


005205 






INC 


P5 


{INCREMENT BYTE 


2755 


014414 


022705 


000400 




CMP 


#400, R5 


;DONE 000 THRU 377 ?? 


2756 


014420 


001372 






BNE 


1$ 


;BR IF NOT 


2757 


014422 


000207 






PTS 


PC 


J RETURN TO CALLFR 


2758 
















2759 










jTHIS ROUTINE 


IS USED TO LOAD 


A DESCENDING BINARY COUNT PATTERN 


27b0 
















276J 


01 4424 


1 12767 


000377 


164566 


LnOUT3J MOVB 


#'377,STMP7 


;STAPT WITH A 377 BYTE 


2762 


014432 


012705 


021260 




MOV 


#DLBUF0,R5 


;R5 POINTS TO OUTPUT BUFFER 


2763 


014436 


116725 


164556 




ISI MOVB 


STMP7, CP5)* 


;LOAD ONE BYTF 


2764 


01 4442 


022705 


021660 




CMP 


»DLBUFI#R5 


;ALL DONE ?? 


2765 


014446 


001403 






BEO 


2$ 


;BR IF YES 


2766 


014450 


105367 


164544 




OECB 


$TMP7 


{GENERATE NEXT BYTE 


2767 


01 4454 


000770 






BP 


18 


{GO HOVE IT 


2768 


014456 


000207 






2$J PTS 


PC 


{RETURN TO CALLER 


2769 
















2770 
















2771 










jTHIS ROUTINE 


LOADS A COMPLEMENTING WORST CASF PATTERN 


2772 
















2773 


01 4460 


012705 


021260 




LD0UT4I MOV 


»DLBUF0#R5 


{R5 POINTS TO OUTPUT BUFFER 


2774 


01 4464 


005067 


164530 




CLR 


STMP7 


{INIT. BYTE GENERATOR 


2775 


014470 


116725 


164524 




1$| MOVB 


8TMP7, (R5)+ 


•MOVE A BYTE 


2776 


014474 


1 05167 


164520 




COMB 


8TMP7 


{COMPLEMENT IT 


2777 


014500 


116725 


164514 




MOVB 


STMP7, (R5)4- 


{NOW LOAD THE I'S COMPLEMENT 


2778 


014504 


105267 


164511 




INCB 


STMP7+1 


{INCREMENT THE BYTE 


2779 


014510 


116767 


164505 


164502 


MOVB 


$TMP7+1,STMP7 


{SET UP TO LOAD NEXT TWO 


2780 


014516 


022705 


021660 




CMP 


»DLBUFI,R5 


{ALL DONE 71 


2781 


014522 


001362 






BNE 


1$ 


{BR IF NOT 


2782 


014524 


000207 






RTS 


PC 


{RETURN TO CALLER 


2783 
















2784 










jTHIS ROUTINE 


CHECKS FOR DATA 


COMPARE ERRORS IN 256, BYTE BLOCK TRANSFERS 


2785 
















2786 


014«?26 


042777 


000104 


164660 


CHKDAT! BIC 


#104,SDLXCSR 


{DISABLE BOTH XMIT AND PCVR INTR, tMAtt. 


2787 


014534 


042777 


000100 


164646 


BIC 


#100,9DLRCSR 




2788 


014542 


012702 


021260 




MOV 


#DLBUF0»R2 


{R2 POINTS TO S/B DATA IN OUTPUT BUFFER 


2789 


014546 


004767 


000070 




JSR 


PC, MASKING 


{GO TO MASK OFF BITS AS A FUNCTION OF 
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2790 


















{CHARACTER LENGTH(5, 6, 7, OP 8 BITS) 


2791 


014552 


012701 


021660 






MOV 


#DLBUFI,R1 




{Rl POINTS TO WAS DATA IN RCVR, BUFFER 


2792 


014556 


122221 






1$J 


CMPB 


(R2)+, (Rl)+ 




{DID S/R = WAS ?? 


2793 


014560 


001004 








BNE 


38 




{BR IF NOT 


2794 


014562 


022701 


022260 




2$: 


CMP 


#BUFEND,R1 




{CHECKED ALL BYTES ?? 


2795 


014566 


001373 








BNE 


18 




{BH IF NOT 


2796 


014570 


000207 








RTS 


PC 




' {RETURN TO CALLER 


2797 


014572 


013767 


177776 


164402 


3$S 


MOV 


@«PSW,6TMP0 




{SAVE THE CPSW] 


2798 


014600 


010667 


164372 






MOV 


SP,$REG6 




{SAVE THE (SPJ 


2799 


014604 


114204 








MOVB 


-(R2),R4 




{GET THE S/B DATA 


2800 


014606 


042704 


177400 






BIC 


#177400, R4 




{CLEAR JUNK FROM HI BYTE 


2801 


014612 


114103 








MOVB 


-(R1),R3 




{GET THE WAS DATA 


2802 


014614 


042703 


177400 






BIC 


#177400, P3 




{CLEAR JUNK FROM HI BYTE 


2803 


014620 


004767 


177254 






JSR 


PCSUERRl 




{GO SET UP ERROR INFO, 


2804 


014624 


012767 


014634 


164412 




MOV 


«4$,$ESCAPE 




{RETURN TO 4$ AFTER ERROR PRINT 


2805 


014632 


104003 








EPROR+3 




{DATA COMPARE ERROR 


2806 


014634 


005202 






4$l 


INC 


R2 




{REPOSITION BUFFER POINTERS 


2807 


014636 


005201 








INC 


Rl 






2808 


014640 


000750 








BR 


2$ 




{GO CHECK NEXT BYTE 


2809 




















2810 










{THIS ROUTINE 


IS USED BY THE 


PATTERN TESTS 


2811 










fIT WILL MASK 


OFF THE CHARACTER 


SENT OUT BY THE XMITTER 


2812 










{BEFORE 


THE COMPARISON OF DATA 


OF WHAT WAS RECEIVED AND WHAT WAS TRANSMITTED 


2813 










>IS DONE, THE 


MASKING IS DONE 


AS A FUNCTION OF CHARACTER LENGTH WHICH 


2814 










{CAN BE 


EITHER 


5, 6, 7, OR 8 


BITS , 


2815 




















2816 


014642 


005005 






MASKING! 


CLR R5 




{INITIALIZE TABLE OFFSET 


2817 


















{FOP PICKING UP MASK WORD 


2818 


014644 


022767 


OOOOlO 


164362 




CMP 


#B,,8TMP15 




{IS THE CHARACTER LENGTH 8 BITS? 


2819 


014652 


001427 








BEQ 


38 




{BRANCH IF IT IS 


2820 


014654 


062705 


000002 






ADD 


«2,R5 




{SET UP FOR NEXT MASK WORD 


2821 


















{IT COULD BE THIS ONE 


2822 


014660 


022767 


000007 


164346 




CMP 


#7.,8TMP15 




{IS THE CHARACTER LENGTH 7 BITS? 


2823 


014666 


001410 








BEQ 


IS 




{BRANCH IF IT IS 


2824 


014670 


062705 


000002 






ADD 


«2,P5 




{SET UP FOR NEXT MASK WORD 


2825 


















{IT COULD BE THIS ONE 


2826 


014674 


022767 


000006 


164332 




CMP 


#6.,8TMP15 




{IS THE CHARACTER LENGTH 6 BITS? 


2827 


014702 


001402 








BEQ 


18 




{BRANCH IF IT IS 


2828 


014704 


062705 


000002 






ADD 


»2,R5 




{SET UP FOR NEXT MASK WORD 


2829 


















{IT MUST BE THIS ONEJI J I 


2830 


014710 


016505 


014734 




l$l 


MOV 


CHAFL(R5),R5 




{PICK UP THE MASK WORD 


2831 


014714 


005105 








COM 


R5 




{FORM THE BITS THAT ARE TO BE MASKED 


2832 


014716 


140S22 






281 


BICB 


R5, (R2)+ 




{MASK A BYTE 


2833 


014720 


022702 


021660 






CMP 


«DLBUFI,R2 




{ARE WE AT THE END OF THE XMITTER 


2834 


















{OUTPUT BUFFER 


2835 


014724 


001374 








BNE 


28 




{BRANCH IF NO TO MASK NEXT BYTE 


2836 


014726 


012702 


021260 






MOV 


«DLBUF0,R2 




{RESTORE R2 BEFORE RETURNING 


2837 


014732 


000207 






3St 


RTS 


PC 




{RETURN TO MAINLINE CODE 


2838 










f TABLE or MASK 


WORDS 






2839 


014734 


000377 






CHARLl 


.WORD 


377 




{8, BITS IN LENGTH 


2840 


014736 


000177 








.WORD 


177 




{7, BITS IN LENGTH 


2841 


014740 


000077 








.WORD 


77 




{6. BITS IN LENGTH 


2842 


014742 


000037 








.WORD 


37 




{5, BITS IN LENGTH 


2843 




















2844 










iTHIS ROUTINE 


IS USED BY PROGRAMS #4 & 5 


284S 










flT WILL MASK 


OFF THE CHARACTER 


SENT OUT BY THE TRANSMITTER 
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2846 
2847 
2848 
2849 
2850 
2851 
2852 
2853 
2854 
2855 
2856 
2857 
2858 
2859 
2860 
2861 
2862 
2863 
2864 
2865 
2866 
2867 
2868 
2869 
2870 
2871 
2872 
2873 
2874 
2875 
2876 
2877 
2878 
2879 
2880 
2881 
2882 
2883 
2884 
2885 
2886 
2887 
2888 
2889 
2890 
2891 
2892 
2893 
2894 
2895 
2896 
2897 
2R98 
2899 
2900 
2901 



^BEFORE THE COMPARISON OF DATA OF WHAT WAS RECEIVED AND WHAT WAS 
iTRANSMITTED IS DONE, THE MASKING 15 DONE AS A FUNCTION OF CHARACTER 
fLENGTH WHICH CAN BE EITHER 5# 6, 1, OR 8 BITS, 



014744 016767 164234 164260 



014752 005005 



014754 
014762 
014764 

014770 
014776 
015000 

015004 
015012 
015014 

015020 
015024 
015026 
015032 



015034 
015042 
015050 
015056 



015060 
015066 
Ol5o74 
0151 02 



015104 
015110 
015114 
015120 
Ol5i26 
015134 
015140 
015142 



022767 
001423 
062705 

022767 
001410 
062705 

022767 
001402 
062705 

016505 
005105 
140567 
000207 



112767 
112767 
112767 
000412 



112767 
1 12767 
112767 

000400 



010667 
116700 
010067 
016667 
012767 
01 1667 
104004 
000137 



000010 
000002 
000007 
000002 
000006 
000002 
014734 
164200 



000060 
000060 
000064 



000060 
000061 
000060 



164066 
163766 
164042 
000002 
015142 
164040 

001772 



UPMASKI MOV 

CLR 

CMP 
BEQ 
ADD 

CMP 
BEQ 
ADD 

CMP 
BEQ 
ADD 

ISl MOV 
COM 
BICB 

2SI RTS 



STMP1,$TMP14 jPICK UP THE CHARACTER THAT WAS 

ISENT OUT FROM THE XMITTER 
P5 iINITIIALIZE TABLE OFFSET 

;FOR PICKING UP MASK WORD 
»8,,8TMP15 ?IS THE CHARACTER LENGTH 8 BITS? 

2S ^BRANCH IF IT IS 

#2,R5, ;SET UP FOR NEXT MASK WORD 

;IT COULD BE THIS ONE 
»7,#STMP15 ;IS THE CHARACTER LENGTH 7 BITS? 

1$ yBRANCH IF IT IS 

»2,R5 jSET UP FOR NEXT MASK WORD 

»IT COULD BE THIS ONE 
#6,,STMP15 ;1S THE CHARACTER LENGTH 6 BITS? 

IS ^BRANCH IF IT IS 

«2,R5 fSET UP FOR NEXT MASK WORD 

rIT MUST BE THIS ONEHU 
CHARL(R5),R5 ;PICK UP THE MASK wDRD 
R5 ;FORM THE BITS THAT ARE TO BE MASKED 

R5,STMP14 ;MASK THE LOW BYTE 

PC jFETURN TO MAINLINE CODE 



000632 
000625 
000620 



000606 
000601 
000574 



164054 
1641 10 



iROUTINE TO SERVICE BUS ERROR TRAPS 

;SET up ERROR MESSAGE 



BUSERPI MOVB 
MOVB 
MOVB 
BP 



«60rEM44-46 
#60f EM4-I-47 
#64f £M4'f50 
TRPCOM 



;G0 SET UP AND REPORT BUS ERROR 



jROUTINE TO SERVICE RSVD INSTRUCTION TRAPS 



RSVERRI MOVB 
MOVB 
MOVB 
BR 



j»60#EM4-i-46 
«6l,EM4+47 
#60#EM4+50 
TRPCOM 



jSET UP ERROR MESSAGE 



yGO SET UP AND REPORT RSVD INSTR, ERROR 
» ROUTINE TO SET UP AND REPORT BUS ERROR AND RSVD XnSTP ERRORS 



MOV SP,SREG6 jSAVE THE TRAP SP 

MOVB STSTNM,RO ,-PUT TEST NO, IN HO 

MOV ROtSREGO ySAVE TEST # 

MOV 2(SP)fSTMP0 ;SAVE THE ERROR PSW 

MOV #lSfSESCAPE ;G0 TO 1$ AFTER ERROR PRINT 

MOV (SP),$REG7 ;SAVE THE ERROR PC 

ERROR+4 ; REPORTED TRAP ERROR 

JMP 9SRESTRT jATTEMPT TO RESTART THE PROGRAM 

jAND TRY AGAIN 



I } «*•»«»*»«»«««««««««»««««««««»«««*««««»«««»»»«»«»««««»»*»«*»««*» 

jEPROR MESSAGE INFORMATION 

I } »««*««»««««««««« ««»««««««•«««'!»«»«»««»««»«««»«««»«« 



MAlNDEC-1 1-rZDLC-B MACYll 30(1046) 12-JUL-77 i0j02 PAGE 58 

DZDLCB.Pll 06-MAY-77 10l04 POWER DOWN AND UP ROUTINES 



2902 










2903 










2904 


015146 


046104 


030461 


051 040 


2905 


015154 


043505 


051511 


042524 


2906 


015162 


020122 


042522 


042506 


2907 


015170 


042522 


041516 


020105 


2908 


015176 


040503 


051525 


042105 


2909 


015204 


052040 


046511 


047505 


2910 


015212 


052125 


000 




2911 


015215 


040 


050050 


024503 


2912 


015222 


020040 


020040 


050050 


2913 


015230 


024523 


020040 


020040 


2914 


015236 


051450 


024520 


020040 


2915 


015244 


020040 


042524 


052123 


2916 


015252 


020040 


042040 


053105 


2917 


015260 


042101 


020122 


051040 


2918 


015266 


043505 


042101 


000122 


2919 










2920 


015274 


001116 


001202 


001176 


2921 


015302 


001162 


001164 


001166 


2922 


015310 


000000 






2923 










2924 










2925 










2926 


015312 


046104 


30461 


051040 


2927 


015320 


043505 


05151 1 


042524 


2928 


015326 


020122 


051105 


047522 


2929 


015334 


000122 






2930 


015336 


024040 


041520 


020051 


2931 


015344 


020040 


024040 


051520 


2932 


015352 


020051 


020040 


024040 


2933 


015360 


050123 


020051 


020040 


2934 


015366 


052040 


051505 


020124 


2935 


015374 


020040 


042504 


040526 


2936 


015402 


051104 


020040 


042522 


2937 


015410 


040507 


081104 


020040 


2938 


015416 


053440 


051501 


020040 


2939 


015424 


020040 


051440 


041057 


2940 


015432 


000 






2941 




015434 






2942 


015434 


001116 


001202 


001176 


2943 


015442 


001162 


001164 


001166 


2944 


015450 


001 170 


001 172 


000000 


2945 










2946 










2947 










2948 


015456 


046104 


030461 


042040 


2949 


015464 


052101 


020101 


047503 


2950 


015472 


050115 


051101 


020105 


2951 


015500 


051105 


047S22 


000122 


2952 


015506 


024040 


041520 


020051 


2953 


015514 


020040 


024040 


051520 


2954 


015522 


020051 


020040 


024040 


2955 


015530 


050123 


020051 


020040 


2956 


015536 


052040 


051505 


020124 


2957 


015544 


020040 


040527 


040523 



> INFORMATION FOR ERROR MESSAGE 1 



EMlt 



.ftSCIZ 'DLll REGISTER REFERENCE CAUSED TIMEOUT' 



,ASCIZ 



TEST DEVADR REGADR* 



.EVEN 
DTI I 



.WORD SERRPC,$TMP0,SREG6#$REG0,$REG1,SREG2#0 



I INFORMATION FOR ERROR MESSAGE 2 
EM2J .ASCIZ 'DLll REGISTER ERROR' 



DH2I 



TEST DEVADR REGADR 



.EVEN 
DT2I 



.WORD 8ERRPC,STMP0,$REG6#SREG0,$REGlf SREG2iSREG3,$REG4,0 



I INFORMATION FOR MESSAGE 3 

EM3I .ASCIZ 'DLll DATA COMPARE ERROR' 



(PC) 



TEST WASADR SHBADR 
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ZDLCB, 


,PU ot 


i«.MAY-77 


10104 




POWER 


DOWN AND UP ROUTINES 


2958 


015552 


051104 


020040 


044123 






2959 


015560 


040502 


051104 


020040 






2960 


015566 


020040 


040527 


020123 






2961 


015574 


020040 


020040 


027523 






2962 


015602 


000102 










2963 










,EVEN 




2964 


015604 


001116 


001202 


001176 


DT3I 


. WORD SERRPC , STMPO , 9REG6 , 6R€®0 , SRESl , $mQ2 , 3PEG3 , $ REG4 , 


2965 


015612 


001162 


001164 


001166 






2966 


015620 


001170 


001172 


000000 






2967 














2968 










> INFORMATION FOR MESSAGE 4 


2969 














2970 


015626 


047125 


054105 


042520 


EM4i 


.ASCIZ 'UNEXPECTED TRAP TO VECTOR AT LOCATION 


2971 


015634 


052103 


042105 


052040 






2972 


015642 


040522 


020120 


047524 






2973 


015650 


053040 


041505 


047524 






2974 


015656 


020122 


052101 


046040 






2975 


015664 


041517 


052101 


047511 






2976 


015672 


0201 16 


020040 


000040 






2977 


015700 


024040 


041520 


020051 


DH4I 


.ASCIZ ' (PC) (PS) (SP) TEST' 


2978 


015706 


020040 


024040 


051520 






2979 


015714 


020051 


020040 


024040 






2980 


015722 


050123 


020051 


020040 






2981 


015730 


052040 


051505 


000124 






2982 










.EVEN 




2983 


015736 


001200 


001202 


001176 


DT4I 


.WORD $ REG7 , TMPO « 8 RE06 , tRBSO , 


2984 


015744 


001162 


000000 








2985 














2986 










J ERROR 


INFORMATION FOR ERROR MESSAGE 5 


2987 














2988 


015750 


046104 


030461 


051440 


EM5I 


.ASCIZ 'DLll SOFT ERROR ( MRITY, FRAMING, OR OVERRUN)' 


2989 


015756 


043117 


020124 


051105 






2990 


015764 


047522 


020122 


050050 






2991 


015772 


051101 


052111 


026131 






2992 


016000 


051106 


046501 


047111 






2993 


016006 


026107 


047440 


020122 






2994 


016014 


053117 


051105 


052522 






2995 


016022 


024516 


000 








2996 


016025 


040 


050050 


024503 


DH5I 


.ASCIZ ' (PC) iPm (SP3 TEST DEVADR REGAOR (HE.G)' 


2997 


016032 


020040 


020040 


050050 






2998 


016040 


024523 


020040 


020040 






2999 


016046 


051450 


024520 


020040 






3000 


016054 


020040 


042524 


052123 






3001 


016062 


020040 


042040 


053105 






3002 


016070 


042101 


020122 


051040 






3003 


016076 


043505 


042101 


020122 






3004 


016104 


020040 


051050 


043505 






3005 


016112 


000051 










3006 










.EVEN 




3007 


016114 


001116 


001202 


001176 


DT5I 


, WORD $ ERRPC , S TMPO , S REG6 , 8 REGO , $REG1 , S REG2 » S REG3 , 


3008 


U16122 


001162 


001164 


001166 






3009 


0161 30 


001170 


000000 








3010 














301 1 










f INFORMATION FOR ERROR MESSAGE 6 


3012 














3013 


016134 


024040 


041520 


020051 


DH6I 


.ASCIZ ' (PC) (PS) (SP) REGADR' 
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3014 


016142 


020040 


024040 


051520 




3015 


016150 


O2O051 


020040 


024040 




3016 


016156 


050123 


020051 


020040 




3017 


016164 


042522 


040507 


051104 




3018 


016172 


000 








3019 




016174 






.EVEN 


3020 


016174 


001116 


001204 


001176 


DT6I .WORD $ERRPC#$TMP1,SREG6,SREG2,0 


3021 


016202 


001 166 


000000 






3022 












3023 










J INFORMATION FOR ERROR MESSAGE 7 


3024 












3025 


016206 


024040 


041520 


020051 


DH7| .ASCIZ ' (PC) DEVADR REGADR (PEG)' 


3026 


016214 


020040 


042504 


040526 




3027 


016222 


051104 


020040 


042522 




3028 


016230 


040507 


051104 


020040 




3029 


016236 


024040 


042522 


024507 




3030 


016244 


000 








3031 




016246 






.EVEN 


3032 


016246 


001116 


001164 


001166 


DT7| .WORD $ERRPC#$PEG1,$REG2»8R€G3,0 


3033 


016254 


001170 


000000 






3034 












3035 










1 INFORMATION FOR ERROR MESSAGE 10 


3036 












3037 


016260 


024040 


041520 


020051 


DHIOI .ASCIZ ' (PC) DEVAiPR REGADR (REG) S/B' 


3038 


016266 


020040 


042504 


040526 




3039 


016274 


051104 


020040 


042522 




3040 


016302 


040507 


051104 


020040 




3041 


0163i0 


024040 


042522 


024507 




3042 


016316 


020040 


020040 


027523 




3043 


016324 


000102 








3044 










.EVEN 


3045 


016326 


001116 


001164 


001166 


DTIOI .WORD SERRPC, $REG1,$REG2,$PEG3,$REG4,0 


3046 


016334 


001170 


001172 


000000 




3047 










fMISCELLANEOUS MESSAGES 


3048 












3049 


016342 


052516 


046114 


042055 


XMSGll .ASCIZ 'NULL-DEL-NULL SEQUENCE TIMEOUT AT FOLLOWING PC 


3050 


016350 


046105 


047055 


046125 




3051 


016356 


020114 


042523 


052521 




3052 


016364 


047105 


042503 


052040 




3053 


016372 


046511 


047505 


052125 




3054 


016400 


040440 


020124 


047506 




3055 


016406 


046114 


053517 


047111 




3056 


016414 


020107 


041520 


000 




3057 


016421 


102 


047111 


051101 


XMSG2I .ASCIZ 'BINARY UP COUNT SEQUENCE TIMEOUT AT FOLLOWING PC 


3058 


016426 


020131 


050125 


041440 




3059 


016434 


052517 


052116 


051440 




3060 


016442 


050505 


042525 


041516 




3061 


016450 


020105 


044524 


042515 




3062 


016456 


052517 


020124 


052101 




3063 


016464 


043040 


046117 


047514 




3064 


016472 


044527 


043516 


050040 




3065 


OI65OO 


000103 








3066 


OI65O2 


044502 


040516 


054522 


XMSG3I .ASCIZ 'BINARY DOWN COUNT SEQUENCE TIMEOUT AT FOLLOWING PC 


3067 


016510 


042040 


053517 


020116 




3068 


OI65I6 


047503 


047125 


020124 




3069 


016524 


042523 


052521 


047105 
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3070 


0165 32 


042503 


052040 


04651 1 


3071 


016540 


047505 


052125 


040440 


3072 


016'S46 


020124 


047506 


046114 


3073 


016554 


053517 


0471 1 1 


020107 


3074 


016562 


041520 


000 




3075 


016565 


127 


051 1 17 


052123 


3076 


016572 


041440 


051501 


020105 


3077 


016600 


040520 


052124 


0511 05 


3078 


016606 


020116 


042523 


052521 


3079 


016614 


047105 


042503 


052040 


3080 


016622 


046511 


047505 


052125 


3081 


016630 


040440 


020124 


047506 


3082 


016636 


0461 14 


053517 


047111 


3083 


016644 


020107 


041520 


000 


3084 










3085 


016651 


015 


046412 


044501 


3086 


016656 


042116 


041505 


030455 


3087 


016664 


026461 


055104 


046104 


3088 


016672 


026503 


006502 


000012 


3089 










3090 


016700 


005015 


047531 


020125 


3091 


016706 


040510 


042526 


051440 


3092 


016714 


046105 


041505 


042524 


3093 


016722 


020104 


051120 


043517 


3094 


016730 


040522 


020115 


047516 


3095 


016736 


020056 


006462 


000012 


3096 


016744 


005015 


047531 


020125 


3097 


016752 


04O510 


042526 


051 440 


3098 


016760 


046105 


041505 


042524 


3099 


016766 


0201 04 


051 1 20 


043517 


3100 


016774 


040522 


020115 


047516 


3101 


01 7002 


020056 


006463 


000012 


3102 


017010 


005015 


047531 


020125 


3103 


017016 


040510 


042526 


051440 


3104 


017024 


046105 


041505 


042524 


3105 


017032 


020104 


051120 


043517 


3106 


017040 


040522 


020115 


0475 J 6 


3107 


017046 


020056 


006464 


000012 


3108 


017054 


005015 


047531 


020125 


3109 


01 7062 


040510 


042526 


051440 


3110 


01 7o70 


046105 


041505 


042524 


3111 


017076 


020104 


051120 


043517 


3112 


017104 


040522 


020115 


047516 


3113 


017112 


020056 


006465 


000012 


3114 


1 7 1 20 


005015 


051124 


047101 


3115 


017126 


046523 


052111 


0^2524 


3116 


0171 34 


020122 


047504 


042516 


3117 


017142 


041040 


052U1 


047040 


3118 


017150 


053105 


051105 


051440 


3119 


017156 


052105 


020040 


041520 


3120 


1 7 J 6 4 


020075 


000 




3121 


017167 


015 


051012 


041505 


3122 


017174 


044505 


042526 


0201 22 


3123 


017202 


047504 


042516 


041040 


3124 


017210 


05211 1 


047040 


053105 


3125 


017216 


051105 


051440 


052105 



.ASCIZ 'WORST CASE PATTERN SEQUENCE TIMEOUT AT FOLLOWING PC* 



.ASCIZ <15><12>'MAINDEC-11-DZDLC-B'<15><12> 



PR0G2MI .ASCIZ <15><12>'Y0U HAVE SELECTED PROGRAM NO, 2'<15><12> 



PR0G3MJ , ASCIZ <15><12>'Y0U HAVE SELECTED PROGRAM NO, 3'<15><12> 



PR0G4M: .ftSCIZ <15><12>'yOU HAVE SELECTED PROGRAM NO, 4'<15><12> 



PR0G5MI .ASCIZ <15><12>'Y0U HAVE SELECTED PROGRAM NO. 5'<15><12> 



.ASCIZ <15><12>'TRANSMITTER DONE BIT NEVER SEX PC= 



.ASCIZ <15><12>'RECEIVER DONE BIT NEVER SET PCs 
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3126 


017224 


020040 


041520 


020075 


3127 


017232 


000 






3128 










3129 










31 30 


017233 


015 


053412 


040510 


3131 


01 7240 


020124 


051511 


052040 


3132 


017246 


042510 


041440 


040510 


3133 


017254 


040522 


052103 


051105 


3134 


017262 


046040 


047105 


05 2107 


3135 


017270 


020110 


032450 


033054 


3136 


017276 


033454 


047440 


020122 


3137 


017304 


020070 


044502 


051524 


3138 


017312 


037451 


000 




3139 


017315 


015 


042012 


020117 


3140 


017322 


047531 


a20125 


044527 


3141 


017130 


044123 


052040 


020117 


3142 


017336 


042524 


052123 


047440 


3143 


01 7344 


044124 


051105 


052040 


3144 


017352 


040510 


020116 


044124 


3145 


017160 


105 






3146 


017161 


015 


042012 


043105 


3147 


017366 


052501 


052114 


042040 


3148 


017374 


053105 


041511 


020105 


3149 


017402 


030450 


030057 


036440 


3150 


017410 


054440 


051505 


047057 


3151 


017416 


024517 


000077 




3152 


017422 


005015 


044127 


052101 


3153 


017430 


044440 


020123 


044124 


3154 


017 436 


020105 


051461 


020124 


3155 


017444 


042522 


042503 


053111 


3156 


017452 


051105 


051440 


040524 


3157 


017460 


052524 


020123 


042522 


3158 


017466 


044507 


052123 


051105 


3159 


017474 


040440 


042104 


042522 


3160 


017502 


051523 


020077 


000040 


3161 


017510 


005015 


044127 


052101 


3162 


017516 


044440 


020123 


044124 


3163 


017524 


020105 


051461 


020124 


3164 


017532 


042522 


042503 


053111 


3165 


01-7540 


051105 


020123 


042526 


3166 


017546 


052103 


051117 


040440 


3167 


017554 


042104 


042522 


051523 


3168 


017562 


020077 


000040 




3169 


017566 


005015 


047504 


054440 


3170 


017574 


052517 


053440 


047101 


3171 


017602 


020124 


04-7524 


052040 


3172 


017610 


051505 


020124 


052515 


3173 


017616 


052114 


050111 


042514 


3174 


017624 


042040 


053105 


041511 


3175 


017632 


051505 


030440 


030057 


3176 


017640 


054475 


051505 


047057 


3177 


017646 


037517 


020040 


000 


3178 


017653 


015 


053412 


040510 


3179 


017660 


020124 


051511 


052040 


3180 


017666 


042510 


031440 


040524 


3181 


017674 


052524 


020123 


042522 



; MESSAGES SEEKING USER RESPONSE 

LENGTHi .ASCIZ <15><12>'WHAT IS THE CHARACTER LENGTH (5,6,7 OR 8 BITS)?' 



DEFAULT! .ASCII <15><12>'D0 YOU WISH TO TEST OTHER THAN THE' 



.ASCIZ <15><12>'DEFAULT DEVICE (1/0 a YES/NO)?' 



MFIRSTDJ .ASCIZ <15><12>'WHAT IS THE 1ST RECEIVER STATUS REGISTER ADDRESS? 



MVECTi .ASCIZ <15><12>'WHAT IS THE 1ST RECEIVER"S VECTOR ADDRESS? 



MULDEVI .ASCIZ <15><12>'D0 YOU WANT TO TEST MULTIPLE DEVICES l/0=YES/NO? 



MLASTDl .ASCIZ <15><12>'WHAT IS THE STATUS REGISTER ADDRESS OF THE LAST RECEIVER? 
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3182 


017702 


044S07 


052123 


051105 


3183 


017710 


040440 


042104 


042522 


3184 


017716 


051523 


047440 


020106 


3185 


017724 


044124 


020105 


040514 


3186 


017732 


052123 


051040 


041505 


3187 


017740 


044505 


042526 


037522 


3188 


017746 


020040 


000 




3189 


017751 


015 


051412 


046517 


3190 


017756 


052105 


044510 


043516 


3191 


017764 


053440 


047522 


043516 


3192 


017772 


040455 


051516 


042527 


3193 


020000 


020122 


044124 


020105 


3194 


020006 


040514 


052123 


050440 


3195 


020014 


042525 


052123 


047511 


3196 


020022 


020116 


043501 


044501 


3197 


020030 


020516 


020040 


000 


3198 


020035 


015 


053412 


040510 


3199 


020042 


020124 


051511 


054440 


3200 


020050 


052517 


020122 


047111 


3201 


020056 


042524 


051122 


050125 


3202 


020064 


020124 


051120 


047511 


3203 


020072 


044522 


054524 


046040 


3204 


020100 


053105 


046105 


020077 


3205 


020106 


000040 






3206 


0201 10 


005015 


051120 


043517 


3207 


020116 


040522 


020115 


042504 


3208 


020124 


044526 


042503 


040440 


3209 


020132 


052103 


053111 


020105 


3210 


020140 


047514 


040503 


044524 


321 1 


020146 


047117 


051440 


047510 


3212 


020154 


051527 


047040 


020117 


3213 


020162 


042504 


044526 


042503 


3214 


020170 


040440 


052103 


0531 11 


3215 


020176 


105 






3216 


020177 


015 


051412 


052105 


3217 


020204 


051440 


044527 


041524 


321 8 


020212 


020110 


020060 


047524 


3219 


020220 


040440 


047440 


042516 


3220 


020226 


024040 


024461 


040440 


3221 


020234 


042116 






3222 


020236 


005015 


044510 


020124 


3223 


020244 


047503 


0521 16 


0471 11 


3224 


020252 


042525 


052040 


020117 


3225 


020260 


047507 


041040 


041501 


3226 


020266 


02011 3 


047524 


042040 


3227 


020274 


053105 


041511 


020105 


3228 


020302 


042523 


042514 


052103 


3229 


020310 


04751 1 


0201 16 


043501 


3230 


020316 


044501 


000116 




3231 


020322 


005015 


044127 


052101 


3232 


020330 


044440 


020123 


044124 


3233 


020336 


020105 


051124 


047101 


3234 


020344 


046523 


052111 


042524 


3235 


020352 


020122 


040504 


040524 


3236 


020360 


041040 


043125 


042506 


3237 


020366 


020122 


042101 


051104 



MRANGEl .ASCIZ <1 5><1 2> ' SOMETHING WRONG-ANSWER THE LAST QUESTION AGAINl 



PLEVELl .ASCIZ <15><12>'WHAT IS YOUR INTERRUPT PRIORITY LEVEL? 



FOULUPt .ASCII <15><12>'PROGRAM DEVICE ACTIVE LOCATION SHOWS NO DEVICE ACTIVE' 



.ASCII <15><12>'SET SWITCH TO A ONE (1) AND' 



.ASCIZ <15><12>'HIT CONTINUE TO GO BACK TO DEVICE SELECTION AGAIN' 



LINTADJ .ASCIZ <15><12>'WHAT IS THE TRANSMITTER DATA BUFFER ADDRESS? 



,INDEC 


-1 i«dzdlc-b 


MACYU 


30(1046) 


;dlcb. 


Pll 06-MAY»-77 


10104 




3238 


020374 


051505 


037523 


020040 


3239 


020402 


000 






3240 


020403 


015 


053412 


040510 


3241 


020410 


020124 


051511 


052040 


3242 


020416 


042510 


041440 


040510 


3243 


020424 


040522 


052103 


051105 


3244 


020432 


052040 


020117 


042502 


3245 


020440 


052040 


040522 


051516 


3246 


020446 


044515 


052124 


042105 


3247 


020454 


024040 


041517 


040524 


3248 


020462 


020114 


051501 


044503 


3249 


020470 


020111 


027105 


027107 


3250 


020476 


040440 


030475 


030460 


3251 


020504 


037451 


020040 


000 


3252 


02O5II 


015 


053412 


040510 


3253 


O2O5I6 


020124 


051511 


052040 


3254 


020524 


042510 


042040 


051505 


3255 


020532 


051111 


042105 


046440 


3256 


020540 


042523 


027103 


042040 


3257 


020546 


046105 


054501 


024040 


3258 


020554 


041517 


040524 


020114 


3259 


020562 


027105 


027107 


030440 


3260 


020570 


036460 


024070 


030061 


3261 


020576 


024451 


020077 


000040 


3262 


020604 


005015 


051511 


040440 


3263 


020612 


051040 


047101 


047504 


3264 


020620 


020115 


040527 


052111 


3265 


020626 


052040 


046511 


020105 


3266 


020634 


046450 


042523 


027103 


3267 


020642 


020051 


042504 


044523 


3268 


020650 


042522 


020104 


030440 


3269 


020656 


030057 


054475 


051505 


3270 


020664 


047057 


037517 


020040 


3271 


020672 


000 






3272 


020673 


015 


054412 


052517 


3273 


020700 


044040 


053101 


020105 


3274 


O2O7O6 


053523 


034122 


051440 


3275 


020714 


052105 


044440 


042116 


3276 


020722 


041511 


052101 


047111 


3277 


020730 


020107 


047514 


050117 


3278 


020736 


047440 


020116 


042524 


3279 


020744 


052123 






3280 


020746 


005015 


040510 


042526 


3281 


020754 


054440 


052517 


046440 


3282 


020762 


042117 


043111 


042511 


3283 


020770 


020104 


044124 


020105 


3284 


020776 


051120 


050117 


051105 


3285 


021004 


046040 


041517 


0^2101 


3286 


021012 


047S11 


051516 


043040 


3287 


021020 


051117 


052040 


042510 


3288 


021026 


005015 


042504 


044S26 


3289 


021034 


042503 


052040 


040510 


3290 


021042 


020124 


047531 


020125 


3291 


021050 


040527 


0S2U6 


052040 


3292 


021056 


020117 


042524 


052123 


3293 


021064 


077 







POWER DOWN AND UP ROUTINES 



SELCARi .ASCIZ <15><12>'WHAT IS THE CHARACTER TO BE TRANSMITTED (OCTAL ASCII E.G. A=10J 



SELDLYl .ASCIZ <15><12>'WHAT IS THE DESIRED MSEC, DELAY (OCTAL E.G. 10=8(10))? 



RSTALLI .ASCIZ <15><12>'IS A RANDOM WAIT TIME (MSEC.) DESIRED l/0=YeS/NO? 



FAILSAI .ASCII <15><12>'YOU HAVE SWR9 SET INDICATING LOOP ON TEST' 



.ASCII <15><12>'HAVE YOU MODIFIED THE PROPER LOCATIONS FOR THE' 



.ASCII <15><12>'DEVICE THAT YOU WANT TO TEST?' 



MAINDEC-1 1-oZDLC-B MACYll 30(1046) 12-JUL-77 10|02 PAGE 65 

DZDLCB.Pll 06»MAy-77 10|04 POWER DOWN AND UP ROUTINES 



3294 


021 065 


015 


044412 


020106 




.ASCII 


<15><12> 


*IF SO " PRESS THE CONTINUE SWITCH* 


3295 


021072 


4 7 S 2 3 


026440 


050040 










3296 


02 1 1 00 


042522 


051523 


052040 










3297 


021 1 06 


042510 


041440 


0471 17 










3298 


021114 


044524 


0525 16 


020105 










3299 


021 t22 


053523 


052111 


0441 03 










3300 


021 l30 


005015 


0431 1 1 


047040 




.ASCI I 


<15><12> 


'IF NOT • MODIFY THE PROPER LOCATIONS^ THEN' 


3301 


021 1 36 


0521 17 


026440 


046440 










3 302 


021144 


0421 17 


0431 1 1 


020131 










3303 


021152 


044124 


020105 


051 1 20 










3304 


021 1 60 


050117 


05 1 1 05 


046040 










3305 


021166 


041517 


052101 


047511 










3306 


021 1 7 4 


051516 


02005 4 


044124 










3307 


021202 


047 1 05 














3 308 


021204 


00501 5 


042522 


052123 




.ASCIZ 


<15><12> 


'RESTART THE PROGRAf* AT ADDRESS 200' 


3 309 


021212 


051101 


020124 


044124 










3310 


021220 


0201 05 


051120 


04 3517 










3311 


021226 


405 2 2 


020115 


^ 21 










3312 


021234 


040440 


042104 


042522 










3313 


0212^2 


05 1523 


031040 


030060 










3314 


021250 


000 














3315 


















3316 


02 1 ?5 I 


040 


020075 


041520 




PCMSGl 


.ASCII 


' B PC' 


3317 


021256 


000040 










.ASCIZ 




3318 


















3 319 










.EVEN 








3320 










f512, WORDS RESERVED FOR 


TWO 256, BYTE INPUT/OUTPUT DATA BUFFERS 


3321 


















3322 


021 360 


000400 






DLBUFOJ 


,BLKB 


256, 


jRSVU FOR OUTPUT BUFFER 


3323 
















ITHIS IS THE DATA BEING SENT OUT 


3324 
















;BY THE TRANSMITTER 


3325 


021660 


000400 






DLBUFII 


,BLKB 


256. 


IRSVD FOR INPUT BUFFER 


3326 
















JTHIS IS THE DATA THAT WAS PICKED 


3327 
















;UP BY THE RECEIVER (I.E. DATA 


3328 
















jSENT BY THE TRANSMITTER - HOPEFULIiY) 


3329 


022260 


000000 






BUFENDl 







yTAG MARKS END OF BUFFERS 


3330 


















3331 




000001 






.END 
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ACTPEG 


001?74 


266« 


621» 


653* 


654» 


664* 


1776 


1800 


BASEAD 


001 264 


252« 


573» 


659» 


660 


667* 


675* 


17884 1804 


BASFIV 


001270 


259# 


593» 


1791* 


1806 


1824« 


1826 




BEGIN 


001446 


46 


393» 












BITO = 


OOOoOl 


152» 


560 


583 


641 


1092 


1098 


nil 1372 


BITOO 3 


OOOOOl 


142# 


152 












BITOl = 


OOO0O2 


141« 


151 












BIT02 = 


000004 


140» 


150 












BIT03 = 


OOOolO 


139» 


149 












BIT04 = 


000020 


1381 


146 












BIT05 s 


000040 


137# 


147 












BIT06 3 


OOOiOO 


136# 


146 












B1T07 a 


000200 


135« 


145 












BIT08 s 


OOO4OO 


134# 


144 


1886 










BIT09 s 


OOloOO 


133» 


143 


1896 


1955 








BITl = 


OOO0O2 


151« 


1003 


1017 


1062 








BITIO s 


OO20OO 


132# 


1940 












BITU = 


004000 


131# 


1903 












BIT12 s 


OlOoOO 


130# 














BITU = 


020000 


129« 


1947 












BIT14 = 


040000 


128» 


1874 












BIT15 a 


looooo 


127# 


937 


949 


968 


980 


982 


1004 1016 


BIT2 s 


000004 


150# 


812 


818 


882 


893 


906 


936 948 


BIT3 a 


OOOOlO 


149«l 


967 


981 










BIT4 s 


000020 


148* 














BITS s 


000040 


147# 


1037 


1043 


1061 








BIT6 a 


OOOlOO 


146# 


858 


864 


881 


908 






BIT7 a 


000200 


145« 














BITS = 


000400 


1449 














BIT9 = 


OOloOO 


143» 














BPTVECa 


000014 


159# 














BUFEND 


022260 


1133 


1190 


1247 


1304 


2573 


2737 


2794 3329# 


BUSEPR 


015034 


486 


2873# 












CHARL 


014734 


2830 


2839# 


2866 










CHKOAT 


014526 


1135 


1192 


1249 


1306 


2786S 






CLDLBF 


014344 


2720 


2735# 












CONOUE 


002626 


626 


670 


682# 


723 








CP a 


oooois 


67# 


2375 


23"85 










CRLF a 


000200 


68# 


2346 


2385 










DATCHK 


013752 


1617 


1725 


2650# 










DDISP a 


177570 


74» 


196 


420 










DEFAUL 


017315 


531 


3139# 












DELAY 


013540 


1420 


1506 


2582» 


2619 








DELCNT 


013602 


2582* 


2585 


2592» 


2597# 








DHl 


015215 


317 


2911# 












DHIO 


016260 


366 


3037« 












DH2 


015336 


324 


2930# 












DH3 


OI55O6 


331 


2952# 












DH4 


015700 


338 


2977» 












DH5 


016025 


345 


2996# 












DH6 


016134 


352 


3013# 












DH7 


016206 


359 


30251 












DISPLA 


001142 


196« 


420* 


428» 


1917» 


1939» 






DISPRE 


000174 


43# 


428 












DLADDR 


010070 


480 


571 


1743# 


1808 


1828 






DLBASE 


001260 


246# 


479* 


36 7 » 


S70 


1743 


1745* 


1747 1749* 



1018 
1501 



1076 
1603 



1804» 1825« 
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DZDLCB.I 


Pll 06« 


MAY-77 


10104 




CBOSS REFERENCE 


TABLE »« 


USER , 


SYMBOLS 














DLBUFI 


021660 




2548 


2719 


2746 


2764 


2780 


2791 


2833 


3325# 












DLBUFO 


021260 




2718 


2735 


2743 


2753* 


2762 


2773 


2788 


2836 


3322# 










DLPPI 


001 302 




282« 


440« 


696'^ 


702* 


703* 


704* 


705* 


706* 


707 


830 


875 


1056 


2706 








2708 


























DLBCSR 


001410 




374# 


508» 


7 1 4« 


732 


791 


857 


879 


934 


937 


949 


964 


968 


982 








1000 


1004 


1018 


1035 


1060 


1141* 


1 148 


1 157 


1 166 


1198* 


1205 


1214 


1223 








1255» 


1262 


1271 


1280 


1312* 


1318 


i 326 


1 334 


1743* 


1813* 


2545* 


2558 


2571* 








2679 


2693 


27 1 4» 


2726* 


2787* 


















DLRDBR 


001412 




375# 


509 


510 


715 


716 


762 


916 


1167 


1224 


1281 


1335 


1 747* 


1814 








1815 


2564 


2568 


2575 


2724 


2725 
















DLVECT 


001420 




378# 


482» 


590« 


592 


593 


828 


873 


1054 


1 8 6 * 


1826* 


2704 






DLXCSP 


001414 




376# 


507* 


713» 


747 


801 


81 1 


833 


1091 


1110 


1 142* 


1 149 


1199* 


1206 








1256» 


1263 


1313* 


1319 


1751* 


1812* 


2540 


2546* 


2570* 


271 3* 


2727* 


2786* 




DLXDBB 


OOI4I6 




377# 


777 


917 


1755* 


2550* 


















DSWB a 


177570 




73« 


195 


419 






















DTI 


015274 




318 


2920» 
























DTIO 


016326 




367 


3045# 
























DT2 


015434 




325 


2942# 
























DT3 


015604 




332 


2964# 
























DT4 


015736 




339 


2983» 
























DT5 


016114 




346 


3007# 
























DT6 


016174 




353 


3020« 
























DT7 


016246 




360 


3032# 
























DUX 


013750 




2627* 


2629* 


2633* 


2640 


2645# 


















EMTVECa 


000030 




162» 


404* 


405* 


1357* 


1358* 


1440* 


1441* 


1525* 


1526* 


1634* 


1635* 






EMI 


015146 




316 


351 


2904 # 






















EM2 


015312 




323 


2926# 
























EM3 


015456 




330 


365 


2948# 






















EM4 


015626 




337 


2873» 


2874* 


2875* 


2880* 


2881* 


2882* 


2970» 












EM5 


015750 




344 


358 


2988# 






















ERRVEC" 


000004 




155# 


417 


418* 


429* 


486* 


487* 


7 30 


731* 


739* 


745 


746« 


754* 


760 








761* 


769* 


775 


776* 


784* 


1386 


J 38 7 * 


1396* 


1398* 


1468 


1469* 


1 478* 


1480* 








1553 


1554» 


1563* 


1565* 


1662 


1663* 


1672* 


1674* 


1879 


1880* 


1882* 


18B5* 




FAILSA 


020673 




463 


3272» 
























FIRSTD 


002200 




549» 


601 
























FLUSH 


002724 




536 


7l3ff 
























FOULUP 


020110 




1778 


3206# 
























GNS » 


»»»»»• u 




42 


2478 


2479 


. - - 


2481 


2482 


2485 


2486 


2487 


2488 








GO 


002100 




506 


520« 


598 






















HOWMAN 


002376 




594 


605« 
























HT a 


000011 




65# 


2344 


2385 






















INTFLG 


001444 




388# 


827» 


835 


8 45* 


876* 


888 


909* 


1 058* 


1063 


1 074* 








lOTVECs 


000020 




160» 


402» 


403* 






















IPTP 


001434 




384» 


1133 


1190 


1247 


1304 


2573 


2575* 


2576* 


271 9* 










KEEPAD 


001262 




248» 


570» 


573 


667 


675 


1823 
















KEEPIV 


001266 




255« 


592» 


1824 






















LASTAD 


OOI3OO 




278» 


643* 


660 






















LASTD 


002446 




620 


627(! 


720 






















LDOUT 


001436 




385« 


1125» 


1182* 


1239* 


1296* 


2721 
















LDOUTl 


014362 




1 125 


2743« 
























LD0UT2 


0] 4404 




1182 


2752* 
























LD0UT3 


014424 




1239 


276i» 
























LD0UT4 


014460 




1296 


2773» 
























LENGTH 


017233 




520 


1583 


1678 


3130» 




















LESSl 


001304 




284« 


707» 


709* 


711* 




















LF a 


OOO0I2 




66# 


2379 


2385 






















MAINDEC' 


-1 i-dzdlc- 


B 
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DZDLCB.I 


Pll 06- 


MAY«77 


10104 




CROSS REFERENCE 


TABLE — 


USER 


SYMBOLS 














LINTAD 


020322 




1361 


I 444 


1529 


1638 


323U 


















MASKIN 


014642 




2789 


2816# 
























MFIRST 


017422 




549 


3152# 
























HLASTD 


017653 




630 


3178* 
























MRANGE 


017751 




677 


3J 89« 
























MULDEV 


017566 




605 


3169» 
























HULTD 


001272 




262» 


431» 


612* 


615* 


618 


1773 


1783* 














MVECT 


017510 




574 


316H 
























NUMONE 


013672 




2602 


2606» 


2613 


2622» 




















NUMTWO 


013674 




2605 


2609 


2612* 


2623# 




















ONCE 


002o54 




467 


496 


5071 






















OPTR 


001432 




383# 


2548 


2550 


2551* 


2718* 


















PCHSG 


021251 




465 


33l6# 
























PXRQ s 


177772 




72S 


























PIRQVEa 


000240 




166# 


























PLEVEL 


020035 




688 


3198« 
























PRG2 


OO6344 




47 


1354» 
























PRG2A 


006404 




1 3619 


1426 
























PBG2B 


006524 




1403» 


























PRG3 


006604 




48 


1437^ 
























PRG3A 


006644 




1444# 


J 512 
























PRG3B 


006764 




1485» 


























PRG4 


007054 




49 


1522# 
























PRG4A 


007114 




15291 


1621 
























PRG4B 


007246 




1575# 


























PRG4C 


007260 




1583# 


1624 
























PR65 


007446 




50 


1631# 
























PR65A 


OO75O6 




1638« 


1730 
























PRG5B 


007676 




1697# 


1727 
























PR65C 


007626 




1678# 


1733 
























PRIME 


014234 




1126 


1183 


1240 


1297 


27131 


















PR0G2M 


OI67OO 




1359 


3090» 
























PR0G3M 


016744 




1442 


3096S 
























PR0G4M 


017010 




1527 


3102« 
























PR0Q5M 


017Q54 




1636 


3108» 
























PRO 8 


000000 




e9# 


























PRl « 


000040 




90# 


























PR2 « 


OOOlOO 




91# 


























PR3 a 


000140 




92# 


























PR4 8 


000200 




93# 


























PR5 a 


000240 




94« 


























PR6 a 


000300 




9S# 


























PR7 a 


000340 




96# 


























PS a 


177776 




69# 


70 
























PSW a 


177776 




70# 


892 


2542 


2560 


2566 


2678 


2691 


2696 


2797 










PWRVECa 


000024 




161# 


408» 


409* 


2494* 


2495* 


2504* 


2510* 


2522* 


2523* 










RDB 


017167 




1609 


1717 


3121# 






















































RDDGC a 


104411 




522 


1585 


1680 


2488« 




















RDLIN a 


IO44O7 




2280 


2405 


2486» 






















RDOCT a 


104410 




533 


552 


575 


607 


633 


679 


689 


1364 


1405 


1413 


1447 


1487 


1495 








1532 


1571 


1577 


1641 


1690 


2487» 
















REDO] 


006574 




1369 


1371 


1374 


1381 


1397 


142S« 
















RSD02 


007044 




1452 


1454 


14S7 


1464 


1479 


1511« 
















RED03 


007426 




1537 


1539 


1542 


1549 


1564 


1620« 
















RED03A 


007436 




1389 


1591 


1622# 
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RED04 


010050 


1646 


1648 


1651 


1658 


1673 


1729# 




RED04A 


010060 


1684 


1686 


173l» 










PESTRT 


001772 


485# 


1785 


1854 


2527 


2894 






RESVECa 


OOOOlO 


156# 


488» 


489« 










RETRY 


002346 


526 


528 


596# 










RFTPYO 


002356 


557 


559 


562 


566 


599# 






RETRYl 


002366 


580 


592 


585 


589 


6021 






RETPY2 


002750 


638 


640 


643 


647 


718# 






RETRY3 


002760 


693 


695 


72H 










RFLGO 


001424 


380# 


1129 


1186 


1243 


1300 


2562* 


2716* 


RFLGl 


001426 


381# 


1131 


1188 


1245 


1302 


2569* 


2717* 


RINT 


013416 


2558# 


2705 












ROTADD 


0')l276 


273S 


624» 


652* 


654 


657* 


664 


665* 


RSTALL 


020604 


1567 


1689 


3262# 










PSVFRR 


015060 


488 


2880# 












RTRY 


001430 


382# 


1124* 


1172# 


1173 


U81» 


1229* 


1230 


SELCAP 


020403 


1403 


1485 


1575 


32408 








SELDLY 


020511 


1410 


1492 


3252# 










STACK a 


001 100 


60# 


400 


485 


1354 


1437 


1522 


1631 


STALL 


01 3604 


1598 


J707 


2602# 










STKLMTs 


177774 


71» 














STLf*SK 


001 306 


290# 


2614 












STMES 


016651 


462 


498 


308S« 










SUERRl 


014100 


899 


925 


U52 


1161 


1169 


1209 


1218 






1337 


2683U 


2803 










SUEPTl 


014132 


735 


750 


765 


780 


2691« 






SUERT2 


014160 


1392 


1474 


1559 


1668 


2696# 






SUER2 


01 4o52 


794 


804 


815 


821 


840 


850 


861 






970 


976 


984 


991 


1006 


1013 


1020 






1095 


1101 


1115 


2678t 








SUVEC 


01 4206 


1123 


1180 


1237 


1294 


2704» 






SWR 


001 140 


195» 


398 


419* 


421 


427* 


442 


502 






1874 


1888 


1890 


1896 


1903 


1940 


1947 


SWREG 


000176 


44# 


427 












swo = 


000001 


124# 


502 












swoo = 


OOOoOl 


114# 


124 












swoi = 


000002 


1 13» 


123 












SW02 a 


000004 


112» 


122 












SW03 = 


oooolo 


Ills 


121 












SW04 s 


000020 


1 10# 


120 












SW05 = 


000040 


109» 


119 












SW06 = 


OOOlOO 


108« 


118 












SW07 = 


000200 


107j» 


117 












SWOB s 


000400 


106« 


lib 












SW09 = 


oolooo 


105» 


115 












SWl = 


000002 


123# 














swio = 


002000 


104# 














SWl 1 = 


004000 


103# 














SWJ2 a 


OlOoOO 


102# 


931 


962 


998 


1033 


1052 


1088 


SWl 3 = 


020000 


101# 














SW14 = 


040000 


100# 














SW15 a 


looooo 


99# 














SW2 = 


000004 


122» 














SW3 = 


oooolo 


121» 














SW4 3 


000020 


120« 














SW5 = 


000040 


1 19» 















1295* 1340* 1341 



867 
1026 



931 
1952 



914 
1040 



962 
1955 



939 
1046 



998 
2502 



945 
1067 



1033 
2515* 



951 
1078 



955 
1082 
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SW6 s 

SW7 = 

SWB = 

SW9 » 

TABFLG 

TBITVEs 

TCONT 

TIMERX 

TIMETX 

TIMPl 

TIMR2 

TKVEC s 

TPVEC = 

TRAPVEs 

TRPCOM 

TRTVECa 

TSTl 

TSTIO 

TSTll 

TST12 

TST13 

TSTl 4 

TST15 

TSTl 6 

TST17 

TST2 

TST20 

TST21 

TST22 

TST23 

TST24 

TST25 

TST3 

TST4 

TST5 

TST6 

TST7 

TYPOS a 

TYPE a 



TYPOC s 

TYPON 3 

TYPOS a 

UPMASK 

VECT 

XDB 

XFLGO 

XINT 

XMSGl 

XMSG2 

XMSG3 

XMSG4 



OOOlOO 
000200 
OOO4OO 

oolooo 

001256 
000014 

01 3722 

013676 
013714 
001440 
001442 
OOO06O 
000064 
000034 
015104 
000014 
002770 
003340 
003464 
003534 
004016 
004146 
004274 
004422 
OO45O2 
003036 
004644 
004726 
004760 
005252 
005544 
006036 
003104 
003152 
003220 
003242 
003266 
104405 
104401 



104402 
104404 
104403 
014744 
002264 
017120 
001422 
013330 
016342 
016421 
OI65O2 
OI656S 



UBS 




1 17« 




116# 


442 


115i 




242« 


433* 


157# 




2631 


2635» 


1607 


1716 


1599 


17 08 


386« 


11 37* 


387» 


1139* 


164# 




165# 




163# 


406* 


2876 


2883 


158« 




511 


717 


820 


826« 


844 


849 


666 


872# 


905 


924 


932 


954 


96 3 


990 


999 


1025 


1034 


1045 


744» 




1053 


1072 


1089 


1100 


1114 


1121« 


1136 


1147 


1193 


1204 


1250 


1261 


759# 




774# 




789# 




793 


799« 


803 


809« 


1843 


2482» 


462 


463 


677 


688 


1442 


1444 


1622 


1636 


1950 


1972 


2229 


2234 


1980 


2004 


2481# 




2480# 




884 


918 


574« 


604 


1601 


1710 


379» 


1127 


2540# 


2707 


1143 


3049# 


1200 


3057# 


1257 


30661 


1314 


3075# 



2627# 
2633» 
1194* 
1196* 



407* 
2887# 



855# 

930» 
961# 
997# 
1032» 
1051» 

1081 
1108# 

1156 
1213 
1270 



465 
718 
1485 
1636 
1989 
2235 
2479# 



3114# 
1184 



1251* 1308* 2722* 
1253* 1310* 2723* 



1355* 1356* 1438* 1439* 1523* 1524* 1632* 1633* 
1816 



1165 
1222 
1279 



1178« 
1235« 
1292# 



498 


520 


531 


549 


574 


596 


599 


602 


60S 


630 


721 


1143 


1200 


1257 


1314 


1359 


1361 


1403 


1410 


1425 


1492 


1511 


1527 


1529 


1567 


1575 


1583 


1601 


1609 


1620 


1678 


1689 


1710 


1717 


1729 


1731 


1778 


1841 


1844 


1942 


1991 


1994 


1996 


2000 


2007 


2072 


2148 


2214 


2220 


2225 


2237 


2240 


2244 


2309 • 


2311 


2349 


2442 


2444 


2478« 


2524 



1298 



2544* 2715* 
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SYMBOLS 














SAUTOB 


001134 




192# 


























$BDADR 


001122 




187# 


























SBDDAT 


001126 




189# 


























3BELL 


001246 




233*1 


1942 


1963 






















$CHARC 


0127^4 




2351* 


2361* 


2368 


2377* 


23821 


















SCKSWRs 






2485 


























SCMTAG 


001 1 00 




175# 


395 


396 


404 


410 


411 
















SCMl a 


1 




207# 


208# 


209# 


2 1 # 


211« 


212# 


213# 


214# 


215# 










$CM2 =s 


000020 




207» 


208# 


209» 


21 0# 


211# 


212# 


213# 


214# 


215» 










$CM3 = 


oooolo 




205» 


207 
























SCM4 a 


000020 




215!» 


2l6)f 


217# 


2 1 8 # 


219# 


220# 


221» 


222« 


223« 


224# 


225» 


226» 


227# 








228# 


229« 


230» 


23 1 # 




















SCNTLG 


01 2301 




2255# 


























SCNTLU 


01 2274 




2229 


2254# 
























SCRLF 


001253 




235Sf 


1950 


1963 


1972 


1991 


1996 


2000 


2234 


2254 


2314 


2350 ' 


2385 


2446 


SD8LK 


01 I700 




2114 


2148 


2156# 






















8D0AGN 


010452 




1837 


1846 


1852# 






















$DTBL 


011670 




2117 


2152# 
























$ENDAD 


010442 




18489 


























$ENDCT 


010410 




1839# 


























SENDMG 


010461 




1841 


lfl56# 
























SBNULL 


010456 




1844 


1855« 
























SEOP 


010144 




1307 


1317 


1 325 


1333 


1343 


1767# 
















SEOPCT 


010402 




ie36« 


1840 
























8ERFLG 


001 103 




178» 


1864 


1 892 


1894 


1900* 


1921 


1 937* 


1963 












SEPMAX 


001 1 15 




184# 


412* 


1894 


1916* 


1921 


















SERROP 


010746 




404 


1357 


1440 


1525 


1634 


1936* 
















SERPPC 


001 1 16 




18511 


1944* 


1945* 


1 946 


196 3 


1978 


2920 


2942 


2964 


3007 


3020 


3032 


3045 


SERPTB 


OOI3IO 




312# 


19^6 
























SERRTY 


OII1O2 




1949 


1971s 
























SERTTL 


0011 12 




182« 


1943* 


1963 






















SESCAP 


001244 




232« 


411* 


736* 


751* 


766* 


781* 


841* 


900* 


1069* 


1 144* 


1153* 


1162* 


1 170* 






1201» 


1210* 


1219* 


1 227* 


1258* 


1267* 


1276* 


1284* 


1315* 


1 323* 


1331* 


1338* 


1 393* 








1475* 


1560* 


1669* 


1915* 


1958 


1960 


1963 


2804* 


2891* 










sfillc 


001156 




203# 


2354 


2385 






















sriLLS 


001155 




2029 


2385 
























SGDAOP 


OOI120 




186# 


























SGDDAT 


001 124 




188« 


























$GET42 


010432 




1845« 


























SGTSWRs 






2484 


























$HD = 


000001 




16 


17 
























SHIOCT 


012466 




2302* 


2313# 
























SICNT 


001 104 




179« 


19o7» 


1908 


1910* 


1920 


















$ILLUP 


01 3312 




2494 


2510 


2529# 






















SINTAG 


001135 




193« 


























SITEMB 


001114 




183* 


1946* 


1963 


1975 




















SLF 


001254 




236# 


1963 


2244 


2254 


2314 


2385 


2446 














SLPADR 


001106 




180# 


413* 


1898* 


1913* 


1918 


1920 
















$LPERR 


001 1 10 




181# 


414* 


1898 


1914* 


1920 


1957 
















SMAIL 3 






431 


1913 


1952 


2338 




















SMNEW 


012317 




2258 # 


























$MSWR 


012306 




2256« 


























$MXCNT 


010744 




1911 


1920i( 
























$NULL 


001 l54 




201# 


2356 


2385 






















$NWTST= 


OOOoOl 




726» 


741« 


756* 


771# 


786# 


796# 


806» 


823« 


852# 


869« 


927» 


958S 


9940 








1029# 


1048# 


1084» 


1105# 


1118« 


1 175# 


1232» 


1289# 
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SOCNT 


Oil 460 




2044* 


2073* 


2086# 






















80M0DE 


01 1462 




2039* 


2043* 


2048 


2051* 


2062* 


2088# 
















SOVER 


010730 




1875 


1891 


1899 


1909 


1917# 


















8PASS 


oouoo 




176# 


1833* 


1834* 


1842 


1855 


1905 


1921 














SPOWER 


01 3320 




2525 


2532» 
























$PWRAD 


013306 




2527# 


























$PWRDN 


Ol3l46 




408 


2494» 


2522 






















$PWRMG 


01 3302 




2525« 


























SPWPUP 


01 3220 




2504 


2510# 
























30UES 


001252 




234# 


596 


599 


602 


718 


721 


1425 


1511 


1620 


1622 


1729 


1731 


1963 






2237 


2254 


2311 


2314 


2385 


2444 


2446 














SRDCHR 


OII7IO 




2174« 


2485 
























SRDDEC 


012710 




2400« 


2488 
























8RDL1N 


012030 




2202« 


2486 
























SRDOCT 


012330 




2275» 


2487 
























8RDSZ * 


oooolo 




2195# 


























$REGAD 


001 160 




205# 


























SREGO 


001162 




207# 


2684* 


2694* 


2889* 


2920 


2942 


2964 


2983 


3007 










SREGl 


001 164 




208» 


2654* 


2656* 


2685* 


2695* 


2920 


2942 


2964 


3007 


3032 


3045 






$R&G2 


001 166 




209# 


2652* 


2654 


2686* 


2699* 


2920 


2942 


2964 


3007 


3020 


3032 


3045 




$REG3 


00 t 170 




210« 


2658* 


2687* 


2942 


2964 


3007 


3032 


3045 












8REG4 


001172 




211# 


2667* 


2688* 


2942 


2964 


3045 
















8REG5 


001174 




212# 


























$REG6 


001176 




213# 


895* 


2543* 


2561* 


2567* 


2681* 


2682* 


2697* 


2698* 


2798* 


2887* 


2920 


2942 






2964 


2983 


3007 


3020 




















8REG7 


OOI2OO 




214# 


956* 


2892* 


2983 




















$BTNAD 


010454 




1854# 


























8R2A a 






2489 


























8SAVRES 


u 




2489 


























SSAVR6 


013316 




2503* 


2511 


2512* 


2513* 


253H 


















ISCOPE 


010476 




402 


1873# 
























SSETUPs 


000017 




392« 


401 


402 


404 


406 


408 


410 


411 


413 


1831 


1874 


1937 


1955 








1962 


2163 


2260 






















8STUP a 


177777 




392» 


























8SVLAD 


010702 




1883 


19128 
























$SWR s 


1S7400 




3» 


16 


24 


25 


26 


27 


28 


29 


30 


31 


231 


232 


233 








410 


411 


413 


414 


730 


745 


760 


775 


790 


800 


810 


827 


856 








873 


931 


962 


998 


1033 


1052 


1088 


1109 


1122 


1179 


1236 


1293 


1764 








1832 


1847 


1853 


1855 


1865 


1866 


1867 


1868 


1869 


1874 


1886 


1888 


1889 








1892 


1893 


1894 


J901 


1902 


1903 


1914 


1917 


1920 


1928 


1929 


1930 


1931 








1932 


1940 


1947 


1952 


'1955 


1963 


2528 














SSWPMKk 


oooooo 




31 


32 


1869 


1870 


1890 


















$TIMES 


001242 




231« 


410* 


1122* 


1179* 


1236* 


1293* 


1832* 


1901* 


1908 


1911* 


1920 






$TKB 


001146 




198# 


2161 


2178 


2184 


























197« 


2161 


2176 


2182 




















8THP0 


OOI2O2 




215# 


892* 


1382* 


1418* 


1465* 


1504* 


1550* 


1594 


1605* 


1659* 


1703 


1714* 


2542* 






2560* 


2566* 


2678* 


2691* 


2797* 


2890* 


2920 


2942 


2964 


2983 


3007 






8TMPi 


001204 




216# 


878* 


883* 


907* 


1168 


1225 


1282 


1336 


1407* 


1418 


1489* 


1504 


1579* 






1605 


1701* 


1714 


2568* 


2696* 


2850 


3020 














$TMP10 


001222 




223# 


























STMPU 


001224 




224# 


1696* 


1697 


1700* 




















8TMP12 


001226 




225» 


1697* 


1698* 


1699* 


1700 


1701 
















STMP13 


001230 




226# 


























$TMP14 


001232 




2271 


886 


887 


921 


2664 


2667 


2850* 


2868* 












$TMP15 


001234 




228« 


434* 


529* 


1592* 


1687* 


2818 


2822 


2826 


2854 


2858 


2862 






STMP16 


001236 




229# 
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STMPJ7 


001240 


230» 










STMP2 


001206 


217« 


14l5» 


1416 


1497* 


1502 


$TMP3 


001210 


21B# 


1594» 


1595* 


1603* 


1611 


STMP4 


O01212 


2198 


161 1» 


16l3« 


1615 


1719* 


STMP5 


001214 


220# 


16l5» 


1723« 


2650 


2658 


$TMP6 


001216 


221 # 


2635» 


2636» 


2650* 


2660 


STMP7 


00l?20 


222« 


276l» 


2763 


2766* 


2774* 


STN 3 


000026 


ten 


726 


7308 


741 


7458 






eoo# 


803 


806 


8 1 6# 


620 






873# 


905 


924 


927 


9318 






999 


1 025 


1029 


10338 


1034 ' 






1089 


1 1 oo 


1 105 


1 1098 


1114 






1193 


1 204 


1213 


1222 


1232 


$TPB 


001 1 52 


200# 


2374* 


2385 






$TPFLG 


001 157 


204# 


2332 


2385 






STPS 


001 l50 


199« 


2372 


2385 






STRAP 


01 3o66 


406 


1 355 


1438 


1523 


1632 


$TRAP2 


01 3l 10 


2466S 


2477 








$TRP s 


000012 


2470« 


24798 


24808 


24818 


24828 


STRPAD 


Ot 3l 22 


2460 


24778 








$TSTNM 


OOl 1 02 


177« 


1 8 1 0» 


1831* 


1864 


1890 


STTYIN 


012264 


2204 


2205 


2217 


2235 


2249 


STYPBNa 




2483 










STYPDS 


011464 


2102» 


2482 








STYPE 


012470 


2332* 


2470 


2478 






$TYPEC 


01 2640 


2353 


2360 


2367 


23728 


237 3 


STYPEX 


012706 


2378 


2380 


23838 






STYPOC 


011262 


2042» 


2479 








STYPON 


011276 


2041 


20448 


2481 






$TYPOS 


011236 


20378 


2480 








SXTSTR 


010506 


18778 










8SGET4S 


000000 


18478 










SOFILL 


011461 


2038» 


2042* 


2052 


20878 




$40CAT= 


»»«»»« u 


1874 


1949 










022262 


388 


428 


528 


1748 


237 






1963 


20108 


21568 


2161 


22538 






30198 


30318 


33228 


33258 





MAINDEC 


-11-DZDLC 


-B 


MACYll 


30(1046) 


12-JUL-77 10102 PAG 


DZDLCBg 


P1 1 06 


«MAY«77 
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CROSS 


REFERENCE 


TABLE 


COMMEN 


1678 














ENDCOM 


1678 














EOPBEG 


198 


1768 












ERROR 


618 


464 


737 


752 


767 


782 


795 




915 


926 


940 


946 


952 


957 


971 




1047 


1070 


1079 


1083 


1096 


1102 


1116 




1259 


1268 


1277 


1285 


1316 


1324 


1332 




1718 


2669 


2671 


2805 


2893 






ESCAPE 


1678 














GETPRI 


1678 














GETSWR 


1678 














MORETA 


188 


238 












MULT 


1678 














NEWTST 


1678 


726 


741 


756 


771 


786 


796 




1048 


1084 


1105 


1118 


1175 


1232 


1289 


POP 


4# 


1678 


2143 


2303 


2435 


2515 


2516 


PUSH 


48 


1678 


2102 


2277 


2402 


2496 


2502 


REPORT 


1678 














SCOPE 


628 


729 


744 


759 


774 


789 


799 




1051 


1087 


1108 


1121 


1178 


1235 


1292 


SETPRI 


1678 














SETTRA 


24708 


2479 


2480 


2481 


2482 


2485 


2486 


SETUP 


48 


1678 


394 










SKIP 


1678 


734 


7 49. 


764 


779 


793 


803 




924 


932 


938 


944 


950 


954 


963 




1025 


1034 


1039 


1045 


1053 


1071 


1077 




1164 


1193 


1203 


1212 


1221 


1250 


1260 


SLASH 


1678 














SPACE 


1678 














STARS 


4» 


1678 


170 


237 


370 


372 


726 




788 


796 


798 


806 


808 


823 


825 




994 


996 


1029 


1031 


1048 


1050 


1084 




1234 


1289 


1291 


1761 


1830 


1861 


1924 




2388 


2449 


2492 


2508 


2536 


2538 


2554 


SWRSU 


1678 


4158 












TRMTPP 


24708 














TYPBIN 


1678 














TYPDEC 


1678 


1842 












TYPNAM 


1678 














TYPNUM 


1678 














TYPOCS 


1678 














TYPOCT 


1678 


1978 


2002 










TYPTXT 


1678 














S8CMRE 


1688 


207 


208 


209 


210 


211 


212 


S8CMTM 


1668 


215 


216 


217 


218 


219 


220 




229 


230 












SSESCA 


1678 














SSNEWT 


1678 


726 


741 


756 


771 


786 


796 




1048 


1084 


1105 


1118 


1175 


1232 


1289 


$$SET 


24708 


2479 


2480 


2481 


2482 


2485 


2486 


SSSKIP 


1678 


793 


803 


820 


844 


849 


866 




1034 


1045 


1053 


1072 


1081 


1089 


1100 




1222 


1250 


1261 


1270 


1279 






,EOUAT 


4« 


57 












gHEADE 


48 


6 












aSETUP 


48 


392 













1573* 


1596 


1692* 


1705 










1703* 


1704* 


. 1712* 


1719 


2627 


2633 






1721* 


1723 


2652 












2664 
















2775 


2776* 


2777 


2778* 


2779* 








756 


7608 


771 


7758 


786 


7908 


793 


796 


823 


8278 


844 


849 


852 


8568 


866 


869 


932 


954 


958 


9628 


963 


990 


994 


9988 


1045 


1048 


10528 


1053 


1072 


1081 


1084 


10888 


1118 


11228 


1136 


1147 


1156 


1165 


1175 


U79# 


12368 


1250 


1261 


1270 


1279 


1289 


12938 




24558 
















24838 


2485 


24868 


24878 


24888 


24898 






1912* 


1917 


1921 


1939 


1963 


2683 


2692 


2888 


22538 
















399 


413 


414 


956 


1855 


1859 


1920 


1921 


2254 


2260 


2314 


2385 


2446 


2506 


2530 


29418 


76 
















MACRO 


NAMES 














805 


616 


822 


842 


851 


862 


868 


901 


977 


985 


992 


1007 


1014 


1021 


1027 


1041 


1 145 


1154 


1163 


1171 


1202 


1211 


1220 


1228 


1339 


1394 


1476 


1561 


1602 


1610 


1670 


1711 


806 


823 


852 


869 


927 


958 


994 


1029 


809 


826 


855 


872 


930 


961 


997 


1032 


1772 
















2487 


2488 














814 


820 


843 


849 


860 


866 


905 


913 


969 


975 


983 


990 


099 


1005 


1012 


1019 


1081 


1089 


1094 


1100 


1114 


1136 


1146 


1155 


1269 


1278 














728 


741 


743 


756 


758 


771 


773 


786 


852 


854 


869 


871 


927 


929 


958 


960 


1086 


1105 


1107 


1118 


1120 


1175 


1177 


1232 


1966 


2014 


2092 


2160 


2166 


2195 


2263 


2317 


2556 


2674 


2676 


2898 


2900 








213 


214 














221 


222 


223 


224 


225 


226 


227 


228 


806 


823 


852 


869 


927 


958 


994 


1029 


2487 


2488 














905 


924 


932 


954 


963 


990 


999 


1025 


1114 


1136 


1147 


1156 


U65 


1193 


1204 


1213 
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SWRHI 


4# 


20 


SWRLO 


4# 


32» 


SCATC 


4» 


36 


8CMTA 


41 


166 


SEOP 


4« 


1759 


SEPRO 


4« 


1922 


$ERRI 


4» 


1964 


IPOWE 


4# 


2490 


$RDDE 


4# 


2386 


SRDOC 


4# 


2261 


$READ 


4# 


2158 


$SCOP 


4# 


1859 


STRAP 


41 


2447 


STVPD 


4» 


2090 


STYPE 


4» 


2315 


$Typo 


4# 


2012 


ABS, 


022262 


000 



ERRORS DETeCTEDi 

DSKZ!DZDLCBtBIN,DSKZlDZDLCB,LST/CHF/SOL/NL|TOCsDSKZ I DZDLCB.Pll 
RUN-TIMEi 21 10 1 SECONDS 
RUN-TIME PaTIOi 3l4/33a9.4 
CORE USEDi 25K (49 PAGES) 



